diff options
-rwxr-xr-x | repgoal.hs | 19 |
1 files changed, 19 insertions, 0 deletions
@@ -179,6 +179,25 @@ theApp = | |||
179 | , appAttrMap = const $ A.attrMap V.defAttr [] | 179 | , appAttrMap = const $ A.attrMap V.defAttr [] |
180 | } | 180 | } |
181 | 181 | ||
182 | -- Lift Ratios | ||
183 | -- from https://www.catalystathletics.com/article/1786/The-Relation-of-Snatch-Clean-Jerk-and-Squat-Weights/ | ||
184 | squat, deadlift, press :: Rational | ||
185 | squat = 345 | ||
186 | deadlift = 453 | ||
187 | press = 140 | ||
188 | |||
189 | cleanAndJerk = squat * 80 / 100 | ||
190 | frontSquat = squat * 85 / 100 | ||
191 | overheadSquat = squat * 65 / 100 | ||
192 | snatch = squat * 60 / 100 | ||
193 | powerSnatch = snatch * 80 / 100 | ||
194 | |||
195 | clean = deadlift * 70 / 100 | ||
196 | powerClean = clean * 80 / 100 | ||
197 | |||
198 | pushPress = press * 100 / 75 | ||
199 | jerk = pushPress / 100 * 85 | ||
200 | |||
182 | main :: IO () | 201 | main :: IO () |
183 | main = do | 202 | main = do |
184 | let buildVty = V.mkVty V.defaultConfig | 203 | let buildVty = V.mkVty V.defaultConfig |