Monads/List monad: Difference between revisions
Content added Content deleted
MaiconSoft (talk | contribs) (Added Delphi example) |
SqrtNegInf (talk | contribs) m (→{{header|Raku}}: future-proof against next release) |
||
Line 672: | Line 672: | ||
sub divisors (Int $int) { gather for 1 .. $int { .take if $int %% $_ } } |
sub divisors (Int $int) { gather for 1 .. $int { .take if $int %% $_ } } |
||
put |
put (^10).&bind(* + 3).&bind(&divisors)».&bind(*.base: 2).join: "\n";</lang> |
||
{{out}} |
{{out}} |