A-M baby

2013-04-10 21:29:02 -07:00 · 2013-04-10 21:29:02 -07:00 · db842d013d
commit db842d013d
parent 764da6cbbb
19005 changed files with 197040 additions and 7 deletions
--- a/Task/Multisplit/PicoLisp/multisplit.l
+++ b/Task/Multisplit/PicoLisp/multisplit.l
@ -0,0 +1,19 @@
+(de multisplit (Str Sep)
+   (setq Sep (mapcar chop Sep))
+   (make
+      (for (S (chop Str) S)
+         (let L
+            (make
+               (loop
+                  (T (find head Sep (circ S))
+                     (link
+                        (list
+                           (- (length Str) (length S))
+                           (pack (cut (length @) 'S)) ) ) )
+                  (link (pop 'S))
+                  (NIL S (link NIL)) ) )
+            (link (pack (cdr (rot L))))
+            (and (car L) (link @)) ) ) ) )
+
+(println (multisplit "a!===b=!=c" '("==" "!=" "=")))
+(println (multisplit "a!===b=!=c" '("=" "!=" "==")))