challenge-327/hvukman/picolisp/part1.l


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27

(de func (X) 
(let (size (length X))
 (prinl size)
 
)
X)


(de sol (X) 
(make
(let (N 1 size (length X) uniques (uniq X))
   (loop
      (if (= NIL (member N uniques)) 
            (link N)
      )
        (T (< size (inc 'N)) 'done) ) 
      )
)
)

(setq sol1 (sol (list 1 2 1 3 2 5)))
(println sol1)
(setq sol1 (sol (list 1 1 1)))
(println sol1)
(setq sol1 (sol (list 2 2 1)))
(println sol1)