RosettaCodeData/Task/Loops-For/Babel/loops-for.pb
2023-07-01 13:44:08 -04:00

11 lines
165 B
Text

((main { 10 star_triangle ! })
(star_triangle {
dup
<-
{ dup { "*" << } <->
iter - 1 +
times
"\n" << }
->
times }))