diff --git a/procs/005a3f83529ce91e2b4dc4717504bac4fd7784b4 b/procs/005a3f83529ce91e2b4dc4717504bac4fd7784b4 new file mode 100644 index 0000000..16ff183 --- /dev/null +++ b/procs/005a3f83529ce91e2b4dc4717504bac4fd7784b4 @@ -0,0 +1,53 @@ +s { + set f 0; + set r [list]; + set a [list]; + set e [list]; + set i 0; + foreach c [split $s ""] { + switch -- $f { + 0 { + switch -- $c { + {set f 1;set b } + {lappend e [list $i ]} + {lappend e [list $i ]} + {lappend e [list $i ]} + {lappend e [list $i ]} + default {lappend a $c;incr i} + } + } + 1 { + switch -regexp -- $c { + \\d {append b $c;incr f} + default {lappend e [list $i $b];lappend a $c;incr i;set f 0} + } + } + 2 { + switch -regexp -- $c { + \\d {append b $c;incr f} + , {append b $c;set f 4} + default {lappend e [list $i $b];lappend a $c;incr i;set f 0} + } + } + 3 { + switch -- $c { + , {append b $c;incr f} + default {lappend e [list $i $b];lappend a $c;incr i;set f 0} + } + } + 4 { + switch -regexp -- $c { + \\d {append b $c;incr f} + default {lappend e [list $i $b];lappend a $c;incr i;set f 0} + } + } + 5 { + switch -regexp -- $c { + \\d {append b $c;lappend e [list $i $b];set f 0} + default {lappend e [list $i $b];lappend a $c;incr i;set f 0} + } + } + } + } + return [list $a $e] +} diff --git a/procs/_index b/procs/_index index e5485b9..66bd230 100644 --- a/procs/_index +++ b/procs/_index @@ -12,6 +12,7 @@ _n_r_r 61d461e02e7bcef8ea98f079a322145ce65e0754 alex_fridman_reading bcdfd11e8c234b51147cb33c5b5ece3cf5e21758 char 71fafc4e2fc1e47e234762a96b80512b6b5534c2 color 6dd0fe8001145bec4a12d0e22da711c4970d000b +csplit_fuckyou 005a3f83529ce91e2b4dc4717504bac4fd7784b4 et a5bc1d9b2ae74e7a8a249659c13b14f5c2eac13f fart' f82f87b4bb1f1de348aea420ff40c4697f8cc41f gay 2871591e64f027a23fadafaa00305a8bd3484292