Loops/While: Difference between revisions
→{{header|ObjectIcon}}
Line 2,204:
coexpression := create generator(1024)
while write(@coexpression)
end
procedure generator(n)
while 0 < n do { suspend n; n /:= 2 }
end</lang>
To show what I mean, let’s do some (merely illustrative) loop-unrolling where the output gets written.
<lang objecticon>import io
procedure main()
local coexpression
coexpression := create generator(1024)
write(@coexpression) &
write(@coexpression) &
write(@coexpression) &
write(@coexpression)&
while (write(@coexpression) &
write(@coexpression) &
write(@coexpression) &
write(@coexpression))
end
| |||