summaryrefslogtreecommitdiff
path: root/repgoal.hs
diff options
context:
space:
mode:
Diffstat (limited to 'repgoal.hs')
-rwxr-xr-xrepgoal.hs6
1 files changed, 6 insertions, 0 deletions
diff --git a/repgoal.hs b/repgoal.hs
index dfd7f6e..631085c 100755
--- a/repgoal.hs
+++ b/repgoal.hs
@@ -97,6 +97,12 @@ initial' =
97 LiftRecord "Overhead Squat" [Achieved 5 65] 97 LiftRecord "Overhead Squat" [Achieved 5 65]
98 ] 98 ]
99 99
100-- "I highly recommend having a goal in mind for these last sets. Sit down the
101-- night before, or the week before, and think of the number of reps you’d like
102-- to hit. See yourself doing it. Write it down and visualize the bar in your
103-- hands or on your back. When it’s time, let yourself go and attack the
104-- weight."
105
100computeRepGoal :: Integer -> [Performance] -> (Integer) 106computeRepGoal :: Integer -> [Performance] -> (Integer)
101computeRepGoal targetWeight stats = head $ filter isPR [2..] 107computeRepGoal targetWeight stats = head $ filter isPR [2..]
102 where 108 where