Changeset 6090

Timestamp:

02/03/08 08:33:55 (5 years ago)

Author:

mokehehe

Message:

Common Lisp の関数をいくつか追加

Files:

• lang/c/misc/mlisp/lib.l (modified) (4 diffs)

lang/c/misc/mlisp/lib.l

@@ -23 +23 @@
 (defun caar (x) (car (car x)))
 (defun cdar (x) (cdr (car x)))
+(defun cadr (x) (car (cdr x)))
 
 (defun >  (x y) (< y x))
@@ -46 +47 @@
         (t (+ 1 (length (cdr ls))))))
 
+;;; mapcar �̒l����Ȃ���= each
+(defun mapc (fn ls)
+  (cond (ls
+         (fn (car ls))
+         (mapc fn (cdr ls)))))
+
+;;; mapcar
 (defun mapcar (fn ls)
   (cond ((eq ls nil) nil)
@@ -51 +59 @@
                  (mapcar fn (cdr ls))))))
 
-
 (defun zerop (x) (eq x 0))
 (defun evenp (x) (eq (% x 2) 0))
 (defun oddp  (x) (eq (% x 2) 1))
 
-(defun inc (x) (+ x 1))
-(defun dec (x) (- x 1))
+(defmacro incf (x n)
+  `(setq ,x (+ ,x n)))
 
+(defmacro decf (x n)
+  `(setq ,x (- ,x n)))
 
 ; �Q�‚̃��X�g�������(defun concat (x y)
@@ -87 +96 @@
                    (cond (else (list (list t else)))))))
 
+
+
+
+; �R�s�[
+(setq eql eq)
+
+(defun member (obj lst)
+  (if (null lst)
+      nil
+    (if (eql (car lst) obj)
+        lst
+      (member obj (cdr lst)))))
+
+(defun nthcdr (n lst)
+  (if (zerop n)
+      lst
+    (nthcdr (- n 1) (cdr lst))))
+
+(defun nth (n lst)
+  (car (nthcdr n lst)))
+
+;;; let
+;;;  On Lisp fig 11.1 (p148)
+(defmacro let (binds . body)
+  `((lambda ,(mapcar (lambda (x)
+                       (if (consp x) (car x) x))
+                     binds)
+      ,@body)
+    ,@(mapcar (lambda (x)
+                (if (consp x) (cadr x) nil))
+              binds)))