All pastes #804596 Raw Edit

Untitled

public text v1 · immutable
·published 2007-12-03 16:27 UTC
rendered paste body
mult a b = 
    case b of
      0 -> 0
      1 -> a
      _ -> a + mult a (b-1)