Anonymous user
Loops/While: Difference between revisions
+factor
(+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}}==
| |||