# https://twitter.com/wjholdentech/status/1178175115625996288
#
# Compute the weekly lifts for 3 months of 5/3/1 cycles.
cycle(max; increment::Int64=10, months::Int64=3) = [convert.(Int64,5 * round.([.65 .75 .85; .7 .8 .9; .75 .85 .95; .4 .5 .6] * (max + increment*i)/5)) for i=0:(months - 1)]

# Print each week on a different line.
csv(cycle::Array{Array{Int64,2},1}) = foreach(month -> foreach(week -> println("$(week[1]),$(week[2]),$(week[3])"), eachrow(month)), cycle)

# Use a smaller monthly increment for the weaker lifts.
csv(cycle(185*.9,increment=5))