musique/prelude.mq

16 lines
288 B
Plaintext

var iota = [n |
var iter = [start stop |
if (start >= stop) [[]] [flat start (iter (start+1) stop)]
];
iter 0 n
];
var map = [array fun|
var iter = [start stop |
if (start >= stop) [[]] [flat (fun (array.start)) (iter (start+1) stop)]
];
iter 0 (len array)
];
var cdur = c47;