Count the coins: Difference between revisions

← Older editNewer edit →
Content deleted Content added
Hout (talk | contribs)
9,665 edits
Hout (talk | contribs)
9,665 edits
Line 1,594: Line 1,594:
(\x a ->
(\x a ->
let (l, r) = splitAt x a
let (l, r) = splitAt x a
in fix (mappend l . flip (zipWith (+)) r))
in fix ((<>) l . flip (zipWith (+)) r))
(1 : repeat 0)
(1 : repeat 0)


Line 1,605: Line 1,605:
, ([100, 50, 25, 10, 5, 1], 10000)
, ([100, 50, 25, 10, 5, 1], 10000)
, ([100, 50, 25, 10, 5, 1], 1000000)
, ([100, 50, 25, 10, 5, 1], 1000000)
]</lang>
]
</lang>
{{Out}}
{{Out}}
<pre>242
<pre>242
Retrieved from "https://rosettacode.org/wiki/Count_the_coins"