2 lines
79 B
Text
2 lines
79 B
Text
let (let*) xs f = List.concat_map f xs
|
|
let (--) a b = List.init (b-a+1) ((+)a)
|
let (let*) xs f = List.concat_map f xs
|
|
let (--) a b = List.init (b-a+1) ((+)a)
|