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/Reverse-a-string/Forth/reverse-a-string.fth
+++ b/Task/Reverse-a-string/Forth/reverse-a-string.fth
@ -0,0 +1,9 @@
+: exchange ( a1 a2 -- )
+  2dup c@ swap c@ rot c! swap c! ;
+: reverse ( c-addr u -- )
+  1- bounds begin 2dup > while
+    2dup exchange
+    -1 /string
+  repeat 2drop ;
+
+s" testing" 2dup reverse type   \ gnitset