tasks a-s

2013-04-10 23:57:08 -07:00 · 2013-04-10 23:57:08 -07:00 · b83f433714
commit b83f433714
parent 47bf37c096
12433 changed files with 156208 additions and 123 deletions
--- a/Task/Remove-duplicate-elements/Icon/remove-duplicate-elements.icon
+++ b/Task/Remove-duplicate-elements/Icon/remove-duplicate-elements.icon
@ -0,0 +1,15 @@
+procedure main(args)
+    every write(!noDups(args))
+end
+
+procedure noDups(L)
+    every put(newL := [], notDup(set(),!L))
+    return newL
+end
+
+procedure notDup(cache, a)
+    if not member(cache, a) then {
+         insert(cache, a)
+         return a
+         }
+end