Greatest common divisor: Difference between revisions
no edit summary
(→{{header|Ursala}}: Add UNIX Shell and C Shell.) |
No edit summary |
||
Line 1,324:
===Concise===
<lang perl6>my &gcd = { (abs $^a, abs $^b, * % * ... 0)[*-2] }</lang>
===even shorter===
{{works with |Rakudo|2011.07}}
<lang Perl6>my $gcd = gcd( $a , $b ) ;</lang>
=={{header|PicoLisp}}==
| |||