From 2262dd62bc007c2ee9485ed9af248eba305fe051 Mon Sep 17 00:00:00 2001 From: Andrew Cady Date: Mon, 21 Nov 2022 11:19:43 -0500 Subject: add Wendler Week4 (deload week) --- repgoal.hs | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/repgoal.hs b/repgoal.hs index dfa1e71..f11dc84 100755 --- a/repgoal.hs +++ b/repgoal.hs @@ -116,7 +116,7 @@ showRational n = printf format $ (realToFrac :: Rational -> Float) $ n where format = if floor (n * 10) `mod` 10 == (0 :: Integer) then "%.0f" else "%.2f" -data WeekSelection = Week1 | Week2 | Week3 deriving (Enum, Bounded, Show, Eq) +data WeekSelection = Week1 | Week2 | Week3 | Week4 deriving (Enum, Bounded, Show, Eq) data Programming = Wendler | Accessory Int Int | Unspecified @@ -163,6 +163,7 @@ liftScheme Heavier Week1 = warmup ++ [setScheme 75 5, setScheme 80 5, setSchemeA liftScheme Fresher Week2 = warmup ++ [setScheme 70 3, setScheme 80 3, setSchemeAMRAP 90 3] ++ downSets liftScheme Heavier Week2 = warmup ++ [setScheme 80 3, setScheme 85 3, setSchemeAMRAP 90 3] ++ downSets liftScheme _______ Week3 = warmup ++ [setScheme 75 5, setScheme 85 3, setSchemeAMRAP 95 1] ++ downSets +liftScheme _______ Week4 = (flip setScheme 5) <$> [40, 50, 60, 70, 80] -- Wendler stops at 60 data ListPosition = FirstInList | NotFirstInList deriving (Eq) @@ -235,7 +236,7 @@ drawUI st = [vCenter $ vBox [hCenter $ hBox [header, oneRepMaxTable], withVScrol header = renderTable $ table $ map (padLeftRight 1 . txt) ["Date", "Time", "Bodyweight", "Week", "Session"] : [ map (padLeftRight 2 . txt) [" ", " ", " ", weekNumber, sessionName session] ] - weekNumber = case (view week st) of Week1 -> "1"; Week2 -> "2"; Week3 -> "3" + weekNumber = case (view week st) of Week1 -> "1"; Week2 -> "2"; Week3 -> "3"; Week4 -> "4" oneRepMaxTable = renderTable $ table $ map (padLeftRight 1 . txt) ["Lift", "Achieved Best", "Computed 1RM"] : map toRow liftRecords toRow LiftRecord{..} = let best@Achieved{..} = bestPerformance stats -- cgit v1.2.3