langs a-z

Task/Loops-Foreach/Retro/loops-foreach.retro

@@ -0,0 +1,15 @@
+( Strings: this will display the ASCII code for each character in a string )
+"This is a message" [ @ putn space ] ^types'STRING each@
+
+( Array: display each element )
+needs array'
+[ 1 2 3 ] ^array'fromQuote  [ @ putn space ] ^types'ARRAY each@
+
+( Linked List: using the dictionary as an example, display each name )
+last [ d->name puts space ] ^types'LIST each@
+
+( Generic Buffers; display each value in a buffer )
+create foo
+  1 , 3 , 5 ,
+
+foo 3 [ @ putn space ] ^types'BUFFER each@