Anonymous user
Greatest common divisor: Difference between revisions
added Ol
No edit summary |
(added Ol) |
||
Line 2,569:
Source of this method is (see Integer.of file) :
<lang Oforth>Integer method: gcd self while ( dup ) [ tuck mod ] drop ;</lang>
=={{header|Ol}}==
<lang scheme>
(print (gcd 1071 1029))
; ==> 21
</lang>
=={{header|Order}}==
| |||