diff options
Diffstat (limited to 'repgoal.hs')
-rwxr-xr-x | repgoal.hs | 8 |
1 files changed, 7 insertions, 1 deletions
@@ -86,7 +86,13 @@ initial = | |||
86 | LiftRecord "Bench" [Achieved 7 190, Achieved 9 180, Achieved 4 205, Achieved 11 180, Achieved 8 200], | 86 | LiftRecord "Bench" [Achieved 7 190, Achieved 9 180, Achieved 4 205, Achieved 11 180, Achieved 8 200], |
87 | LiftRecord "Deadlift" [Achieved 5 360, Achieved 9 315, Achieved 8 345, Achieved 7 360, Achieved 10 340], | 87 | LiftRecord "Deadlift" [Achieved 5 360, Achieved 9 315, Achieved 8 345, Achieved 7 360, Achieved 10 340], |
88 | -- LiftRecord "Press" [Achieved 6 130, Achieved 9 120, Achieved 4 135] | 88 | -- LiftRecord "Press" [Achieved 6 130, Achieved 9 120, Achieved 4 135] |
89 | LiftRecord "Press" [Achieved 5 120] | 89 | LiftRecord "Press" [Achieved 5 120], |
90 | LiftRecord "Power Clean" [Achieved 10 135], | ||
91 | LiftRecord "Push Press" [Achieved 7 135], | ||
92 | LiftRecord "Front Squat" [Achieved 5 255], | ||
93 | LiftRecord "Left-Arm Snatch" [Achieved 3 85], | ||
94 | LiftRecord "Right-Arm Snatch" [Achieved 3 85], | ||
95 | LiftRecord "Overhead Squat" [Achieved 5 65] | ||
90 | ] | 96 | ] |
91 | 97 | ||
92 | computeRepGoal :: Rational -> [Performance] -> (Integer) | 98 | computeRepGoal :: Rational -> [Performance] -> (Integer) |