aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

2016 Update

Browse source
This commit is contained in:
Tina Müller 2016-12-05 22:15:40 +01:00
parent 948b86eafa
commit dcf5d15da3
7965 changed files with 139854 additions and 31002 deletions
Download patch file Download diff file Expand all files Collapse all files

6
Task/Order-disjoint-list-items/PicoLisp/order-disjoint-list-items-1.l Normal file
View file

@ -0,0 +1,6 @@
(de orderDisjoint (M N)
(for S N
(and (memq S M) (set @ NIL)) )
(mapcar
'((S) (or S (pop 'N)))
M ) )

20
Task/Order-disjoint-list-items/PicoLisp/order-disjoint-list-items-2.l Normal file
View file

@ -0,0 +1,20 @@
: (orderDisjoint '(the cat sat on the mat) '(mat cat))
-> (the mat sat on the cat)
: (orderDisjoint '(the cat sat on the mat) '(cat mat))
-> (the cat sat on the mat)
: (orderDisjoint '(A B C A B C A B C) '(C A C A))
-> (C B A C B A A B C)
: (orderDisjoint '(A B C A B D A B E) '(E A D A))
-> (E B C A B D A B A)
: (orderDisjoint '(A B) '(B))
-> (A B)
: (orderDisjoint '(A B) '(B A))
-> (B A)
: (orderDisjoint '(A B B A) '(B A))
-> (B A B A)