string frying

2009-04-29 21:51:19 -05:00 · 2009-04-29 21:51:19 -05:00 · 7afaa255c1
parent 3cf4f45416
commit 7afaa255c1
3 changed files with 6 additions and 0 deletions
--- a/extra/str-fry/authors.txt
+++ b/extra/str-fry/authors.txt
@ -0,0 +1 @@
+Sam Anklesaria
--- a/extra/str-fry/str-fry.factor
+++ b/extra/str-fry/str-fry.factor
@ -0,0 +1,4 @@
+USING: kernel sequences splitting strings.parser ;
+IN: str-fry
+: str-fry ( str -- quot ) "_" split unclip [ [ rot glue ] reduce ] 2curry ;
+SYNTAX: I" parse-string rest str-fry over push-all ;
--- a/extra/str-fry/summary.txt
+++ b/extra/str-fry/summary.txt
@ -0,0 +1 @@
+String Frying