RosettaCodeData/Task/Loops-For/Futhark/loops-for.futhark
2016-12-05 23:44:36 +01:00

7 lines
151 B
Text

fun main(n: int): [n]int =
loop (a = replicate n 0) = for i < n do
(loop (s = 0) = for j < i+1 do
s + j
let a[i] = s
in a)
in a