Talk:Loops/While: Difference between revisions

→‎DC: !codegolg => ++spaces
(→‎DC: !codegolg => ++spaces)
Line 54:
 
Alternative version (needs review, comment, adopt, ...):
 
{{works with|GNU Dc}}
{{works with|OpenBSD Dc}}
If the comments are omitted: {{works with|AT&T Dc}}
<pre>
$ dc<<end
[ q ]sQ sQ # makro Q : quit 2 levels (quit Q and calling level)
1024 [ d0d 0!<Q # compare, quit if true
p 2 / # print and divide
lWxlW x # tail recursion
] dsWxd sW x # duplicate store as W execute TOS
end
1024
169

edits