langs a-z

2013-04-10 22:43:41 -07:00 · 2013-04-10 22:43:41 -07:00 · d066446780
commit d066446780
parent db842d013d
11389 changed files with 98361 additions and 1020 deletions
--- a/Task/Metaprogramming/SNOBOL4/metaprogramming-4.sno
+++ b/Task/Metaprogramming/SNOBOL4/metaprogramming-4.sno
@ -0,0 +1,10 @@
+        &ANCHOR = 0 ; &TRIM = 1
+        WORD = BREAK(' .,') . W SPAN(' .,')
+        FINDW = ' ' *W ANY(' .,')
+        STRING1 = INPUT                       :F(ERROR)
+        STRING2 = INPUT                       :F(ERROR)
+LOOP    STRING1 WORD =                        :F(OUTPUT)
+        STRING2 FINDW                         :F(LOOP)
+        LIST = LIST W ', '                    :(LOOP)
+OUTPUT  OUTPUT = LIST
+END