home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 549b.lha / Kamin / src.LZH / source / code.lsp.out < prev    next >
Encoding:
Text File  |  1991-06-28  |  3.3 KB  |  292 lines
  1. -> -> mod
  2. -> +1
  3. -> -> (a)
  4.  
  5. -> (a)
  6.  
  7. -> (a b)
  8.  
  9. -> (a b)
  10.  
  11. -> ((a) b)
  12.  
  13. -> ((a) b)
  14.  
  15. -> ((b (c d)))
  16.  
  17. -> ((b (c d)))
  18.  
  19. -> T
  20.  
  21. -> T
  22.  
  23. -> ()
  24.  
  25. -> ()
  26.  
  27. -> length
  28. -> caar
  29. -> cadr
  30. -> cddr
  31. -> caddr
  32. -> cadar
  33. -> cadddr
  34. -> list1
  35. -> list2
  36. -> list3
  37. -> ((a) b)
  38.  
  39. -> ((a) b)
  40.  
  41. -> or
  42. -> atom?
  43. -> > > > > > equal
  44. -> ()
  45.  
  46. -> ()
  47.  
  48. -> T
  49.  
  50. -> T
  51.  
  52. -> ()
  53.  
  54. -> ()
  55.  
  56. -> and
  57. -> not
  58. -> divides
  59. -> > interval-list
  60. -> (3 4 5 6 7)
  61.  
  62. -> (3 4 5 6 7)
  63.  
  64. -> > > > > remove-multiples
  65. -> (3 5 7)
  66.  
  67. -> (3 5 7)
  68.  
  69. -> > > sieve
  70. -> primes<=
  71. -> (2 3 5 7)
  72.  
  73. -> (2 3 5 7)
  74.  
  75. -> > > > insert
  76. -> > > insertion-sort
  77. -> (2 3 4 5 6 8)
  78.  
  79. -> (2 3 4 5 6 8)
  80.  
  81. -> > > > assoc
  82. -> Thant
  83.  
  84. -> Thant
  85.  
  86. -> > > > > mkassoc
  87. -> ((I Ching))
  88.  
  89. -> ((I Ching))
  90.  
  91. -> ((I Ching) (E coli))
  92.  
  93. -> ((I Ching) (E Coli))
  94.  
  95. -> ((I Magnin) (E coli))
  96.  
  97. -> ((I Magnin) (E coli))
  98.  
  99. -> Magnin
  100.  
  101. -> Magnin
  102.  
  103. -> ((apple ((texture crunchy))) (banana ((color yellow))))
  104.  
  105. -> > > getprop
  106. -> crunchy
  107.  
  108. -> crunchy
  109.  
  110. -> > > putprop
  111. -> ((apple ((texture crunchy) (color red))) (banana ((color yellow))))
  112.  
  113. -> ((apple ((texture crunchy) (color red))) (banana ((color yellow))))
  114.  
  115. -> red
  116.  
  117. -> red
  118.  
  119. -> hasprop?
  120. -> > > > > > gatherprop
  121. -> ((apple ((texture crunchy) (color red))) (banana ((color yellow))) (lemon ((color yellow))))
  122.  
  123. -> ((apple ((texture crunchy) ... (lemon ((color yellow))))))
  124.  
  125. -> (banana lemon)
  126.  
  127. -> (banana lemon)
  128.  
  129. -> ()
  130.  
  131. -> ()
  132.  
  133. -> > addelt
  134. -> > > member?
  135. -> size
  136. -> > > > > union
  137. -> (3 a)
  138.  
  139. -> (3 a)
  140.  
  141. -> T
  142.  
  143. -> T
  144.  
  145. -> (a 2 3)
  146.  
  147. -> (a 2 3)
  148.  
  149. -> ((a b) 1)
  150.  
  151. -> ((a b) 1)
  152.  
  153. -> T
  154.  
  155. -> T
  156.  
  157. -> > > > sum
  158. -> > > > > > wrong-sum
  159. -> 10
  160.  
  161. -> 10
  162.  
  163. -> 16
  164.  
  165. -> 16
  166.  
  167. -> right-sum
  168. -> > > > > > right-sum-aux
  169. -> 10
  170.  
  171. -> 10
  172.  
  173. -> > > > > > pre-ord
  174. -> A
  175. B
  176. C
  177. D
  178. E
  179. F
  180. G
  181. H
  182. I
  183. I
  184.  
  185. -> (output is A B C D E F G H I)
  186.  
  187. -> -> ()
  188.  
  189. -> front
  190. -> rm-front
  191. -> > enqueue
  192. -> empty?
  193. -> -> level-ord
  194. -> > > > > > > > > > > > > level-ord*
  195. -> A
  196. B
  197. E
  198. C
  199. D
  200. F
  201. I
  202. G
  203. H
  204. ()
  205.  
  206. -> (output is A B E C D E F I G H)
  207.  
  208. -> -> > > > > inter
  209. -> > > > > > diff
  210. -> > > > UNION
  211. -> > > > INTER
  212. -> > > > DIFF
  213. -> > SELECT
  214. -> > > col-num
  215. -> > > > > include-rows
  216. -> > nth
  217. -> > PROJECT
  218. -> > > col-num*
  219. -> > > > include-cols*
  220. -> > > > include-cols
  221. -> > append
  222. -> > > > > > > > > > > > JOIN
  223. -> > > > > > > > > > > > > > > > > join-cols*
  224. -> > > > join-cols
  225. -> > > > > > > ((Victim Crime Criminal Location) (Phelps robbery Harrison London) (Drebber murder Hope London) (Sir-Charles murder Stapleton Devonshire) (Lady-Eva blackmail Milverton London) (Brunton murder Howells West-Sussex))
  226.  
  227. -> > > > > ((Victim Weapon Motive) (Drebber poison revenge) (Sir-Charles hound greed) (Brunton burial-alive passion))
  228.  
  229. -> > > > ((Victim Weapon Motive Criminal) (Drebber poison revenge Hope))
  230.  
  231. -> ((Victim Weapon Motive Criminal) (Drebber poison revenge Hope))
  232.  
  233. -> -> > > > > > eval
  234. -> > > > > apply-op
  235. -> 23
  236.  
  237. -> 23
  238.  
  239. -> 7
  240.  
  241. -> 7
  242.  
  243. -> 24
  244.  
  245. -> 24
  246.  
  247. -> > > > > > > eval
  248. -> 6
  249.  
  250. -> 6
  251.  
  252. -> > > > > > > > > > eval
  253. -> > > > > > > > > apply-binary-op
  254. -> > > > > > > apply-unary-op
  255. -> a
  256.  
  257. -> a
  258.  
  259. -> (3 9)
  260.  
  261. -> (3 9)
  262.  
  263. -> > > > > > > > > > > > > > > > > > eval
  264. -> userfun?
  265. -> > > > apply-userfun
  266. -> > > > evallist
  267. -> > > > mkassoc*
  268. -> ((double ((a) (+ a a))))
  269.  
  270. -> ((double ((a) (+ a a))))
  271.  
  272. -> 8
  273.  
  274. -> 8
  275.  
  276. -> > > ((exp ((m n) (if (= n 0) 1 (* m (exp m (- n 1)))))))
  277.  
  278. -> ((exp ((m n) (if (= n 0) 1 (* m (exp m (- n 1)))))))
  279.  
  280. -> 64
  281.  
  282. -> 64
  283.  
  284. -> r-e-p-loop
  285. -> > > > > > > r-e-p-loop*
  286. -> > > > process-def
  287. -> > > process-exp
  288. -> > > > > > (double 8 exp 64)
  289.  
  290. -> (double 8 exp 64)
  291.  
  292. ->