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/Forth/remove-duplicate-elements-2.fth
+++ b/Task/Remove-duplicate-elements/Forth/remove-duplicate-elements-2.fth
@ -0,0 +1,12 @@
+: uniqv { a n \ r e -- n }
+    a n cells+ to e
+    a dup to r
+    \ the write address lives on the stack
+    begin
+      r e <
+    while
+      r @ over !
+      r cell+ e skip-dups to r
+      cell+
+    repeat
+    a - cell / ;