blob: dfb20118057c1021e46e460a552620e75c17e4b6 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
(load "../common")
(defstruct (add n list) nil
n list
(:method cdr (me) (if (cdr me.list) (new (add me.n (cdr me.list)))))
(:method car (me) (+ me.n (car me.list)))
(:method nullify (me) (if me.list me))
(:method lambda (me i)
(if (rangep i)
(mapcar (op + me.n) [me.list i])
(+ me.n (ref me.list i)))))
(defvarl o (new (add 3 (range 10 100 10))))
(test (car o) 13)
(test (cadr o) 23)
(test [o 4] 53)
(test (cadr (last o)) nil)
|
