(defun div618 (p1 p2) \"golden split\" (let ((ratio \'(0. 0.191 0.236 0.382 0.5 0.618 0.809 1.)) (price (lambda (r) (if (<= p1 p2) (+ p1 (* (- p2 p1) r)) (- p1 (* (- p1 p2) r))))))
It comes from my homework assignments. There is a family tree a+b /||\\ c+ud+ce+wf / | \\/ \\ m+xn+yopq r
I\'m trying to write a function that can calculate GPA. Now I can do limited calculation(only 3 ),but I stuck on how to calculate more , without using loop or recursion (that\'s the requirement of sub
Usin开发者_如何转开发g ~/.guile, the functions in money.scm are available automatically in guile REPL.
I\'ve installed clisp on my fedora-13 machine. In the clisp interpreter, i\'ve en开发者_运维知识库tered the following:
Apparently my teacher believes that even if we don\'t have time to learn stuff (nor enough examples) we should move on, so I now need to know how to make Floyd-Warshall\'s and Warshall\'s algorithms i
I\'m working through Land of Lisp, using CLisp, writing the code in Vim with Slimv, then alt-tabbing to another terminal wi开发者_如何学Pythonndow and loading the file into the REPL with (load \'file.
Supp开发者_运维问答ose I define a function globally: (defun x (y) (1+ y)) ;; Edit: my first example was too complicated
I\'m trying to install s-xml (I\'m heading towards s-xml-rpc) on clisp 2.49 on os x. I think I\'ve got asdf install correctly. I can run:
I\'ve been trying to see get a list of all files within a directo开发者_JS百科ry in CLISP, but I\'ve only been able to get all non-directory files within a directory.
加载中,请稍侯......