Count the coins: Difference between revisions
Content added Content deleted
Line 1,196: | Line 1,196: | ||
<pre>242</pre> |
<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}}== |
=={{header|EchoLisp}}== |