RosettaCodeData/Task/Loops-For/Babel/loops-for.pb

12 lines
165 B
Plaintext

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