Loops/While: Difference between revisions
Content deleted Content added
+factor |
|||
Line 63:
repeat drop ;
1024 halving
=={{header|Factor}}==
1024 [ dup 0 > ] [ dup . 2 /i ] [ drop ] while
=={{header|Fortran}}==
| |||
+factor |
|||
Line 63:
repeat drop ;
1024 halving
=={{header|Factor}}==
1024 [ dup 0 > ] [ dup . 2 /i ] [ drop ] while
=={{header|Fortran}}==
| |||