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/Turing/reverse-a-string.turing
+++ b/Task/Reverse-a-string/Turing/reverse-a-string.turing
@ -0,0 +1,16 @@
+% Reverse a string
+
+var input : string (100)
+
+put "Enter a string to reverse: " ..
+get input
+
+var count : int := length(input)
+loop
+    if count >= 1 then
+        put input(count) ..
+    else
+        exit
+    end if
+    count := count - 1
+end loop