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-3.fth
+++ b/Task/Remove-duplicate-elements/Forth/remove-duplicate-elements-3.fth
@ -0,0 +1,5 @@
+create test 1 , 2 , 3 , 2 , 6 , 4 , 5 , 3 , 6 ,
+here test - cell / constant ntest
+: .test ( n -- ) 0 ?do test i cells + ? loop ;
+
+test ntest 2dup cell-sort uniq .test