Count in octal: Difference between revisions

Content deleted Content added

Inline

@@ Line 507: / Line 507: @@
 <lang lang5>'%4o '__number_format set
 : cr  "\n" . ;
-: last'  swap iota remove ;
+: last'  length 1 - iota remove ;
-: <each>loop  do dup expand drop iota last' . cr 1 + loop ;
+: <each>loop  do dup iota last' . cr 1 + loop ;
-[ 1 2 ] <each>loop</lang>
+<each>loop</lang>
 =={{header|Liberty BASIC}}==