mirror of
https://github.com/ProgramSnail/Lama.git
synced 2025-12-06 06:48:48 +00:00
22 lines
721 B
Text
22 lines
721 B
Text
import Collection;
|
|
|
|
fun f (x, y) {
|
|
fun () {x+y}
|
|
}
|
|
|
|
var t = emptyMemo (),
|
|
a = lookupMemo (t, "abc"),
|
|
b = lookupMemo (t, [1, 2, 3, 4, "abc"]),
|
|
c = lookupMemo (t, f (5, 6));
|
|
|
|
printf ("Cached: %d\n", lookupMemo (t, "abc") == a);
|
|
printf ("Cached: %d\n", lookupMemo (t, "abc") == a);
|
|
printf ("Cached: %d\n", lookupMemo (t, "abc") == a);
|
|
|
|
printf ("Cached: %d\n", lookupMemo (t, [1, 2, 3, 4, "abc"]) == b);
|
|
printf ("Cached: %d\n", lookupMemo (t, [1, 2, 3, 4, "abc"]) == b);
|
|
printf ("Cached: %d\n", lookupMemo (t, [1, 2, 3, 4, "abc"]) == b);
|
|
|
|
printf ("Cached: %d\n", lookupMemo (t, f (5, 6)) == c);
|
|
printf ("Cached: %d\n", lookupMemo (t, f (5, 6)) == c);
|
|
printf ("Cached: %d\n", lookupMemo (t, f (5, 6)) == c)
|