;;; -*- Mode: LISP; Syntax: Common-Lisp; Package: MEMOIZATION; Base: 10 -*-

(in-package "MEMOIZATION")

(proclaim '(special user::*Temporary-Hash-Table*))

(setq user::*Temporary-Hash-Table*
      (make-hash-table :size 62 :test #'EQUAL))

(flet ((F (Key Value)
         (setf (gethash Key user::*Temporary-Hash-Table*) Value)))
  (F '(8) '21)
  (F '(9) '34)
  (F '(10) '55)
  (F '(11) '89)
  (F '(12) '144)
  (F '(13) '233)
  (F '(14) '377)
  (F '(15) '610)
  (F '(16) '987)
  (F '(17) '1597)
  (F '(18) '2584)
  (F '(19) '4181)
  (F '(20) '6765)
  (F '(21) '10946)
  (F '(22) '17711)
  (F '(23) '28657)
  (F '(24) '46368)
  (F '(25) '75025)
  (F '(26) '121393)
  (F '(27) '196418)
  (F '(28) '317811)
  (F '(29) '514229)
  (F '(30) '832040)
  (F '(31) '1346269)
  (F '(32) '2178309)
  (F '(33) '3524578)
  (F '(34) '5702887)
  (F '(35) '9227465)
  (F '(36) '14930352)
  (F '(37) '24157817)
  (F '(38) '39088169)
  (F '(39) '63245986)
  (F '(40) '102334155)
  (F '(0) '0)
  (F '(1) '1)
  (F '(2) '1)
  (F '(3) '2)
  (F '(4) '3)
  (F '(5) '5)
  (F '(6) '8)
  (F '(7) '13)
)