14 lines
279 B
Text
14 lines
279 B
Text
|
(de add (A B)
|
||
|
|
(mapcar + A B) )
|
||
|
|
(de sub (A B)
|
||
|
|
(mapcar - A B) )
|
||
|
|
(de mul (A B)
|
||
|
|
(mapcar '((X) (* X B)) A) )
|
||
|
|
(de div (A B)
|
||
|
|
(mapcar '((X) (*/ X B)) A) )
|
||
|
|
(let (X (5 7) Y (2 3))
|
||
|
|
(println (add X Y))
|
||
|
|
(println (sub X Y))
|
||
|
|
(println (mul X 11))
|
||
|
|
(println (div X 2)) )
|