RosettaCodeData/Task/Loops-For/Futhark/loops-for.futhark

8 lines
151 B
Text
Raw Permalink Normal View History

2016-12-05 23:44:36 +01:00
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