Initial data commit

2023-07-01 11:58:00 -04:00 · 2023-07-01 11:58:00 -04:00 · f23f22d71c
commit f23f22d71c
parent 72d218235f
199087 changed files with 3378941 additions and 0 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