f0-tw0134.hs

-- http://sccode.org/1-4Qy (f0) (requires -w 512)
let mean l = sum l / fromIntegral (length l)
    a = lfSaw ar
    n' = 50
    n = constant n'
    z i = let o1 = a ((i + 1) / mce [3,4]) 0
              o2 = a ((i + 1) / 8) 0 + 1
              f0 = o1 `greater_than` o2 * (n / 2) + n
              m = a ((i + 1) / n) (i / (n / 2))
              o3 = blip ar f0 (i + mce [2,3]) * m
          in ringz o3 ((i + 1) * (n * 2 - 1)) 0.1
in mean (map z [0 .. n']) / 10