All pastes #804589 Raw Edit

Untitled

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