Count the coins: Difference between revisions
→{{header|EasyLang}}
Line 1,196:
<pre>242</pre>
=={{header|EasyLang}}==
<syntaxhighlight lang="easylang">
len cache[] 100000 * 7 + 6
val[] = [ 1 5 10 25 50 100 ]
proc cc sum kind . r .
if sum = 0
r = 1
elif sum < 0 or kind = 0
r = 0
elif cache[sum * 7 + kind] > 0
r = cache[sum * 7 + kind]
else
call cc sum - val[kind] kind r2
call cc sum kind - 1 r1
r = r1 + r2
cache[sum * 7 + kind] = r
.
.
call cc 100 4 r
print r
call cc 100000 6 r
print r
</syntaxhighlight>
=={{header|EchoLisp}}==
| |||