Evaluated rename csplit csplit_fuckyou
This commit is contained in:
parent
3611d1ceeb
commit
c43404514c
53
procs/005a3f83529ce91e2b4dc4717504bac4fd7784b4
Normal file
53
procs/005a3f83529ce91e2b4dc4717504bac4fd7784b4
Normal file
@ -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]
|
||||||
|
}
|
@ -12,6 +12,7 @@ _n_r_r 61d461e02e7bcef8ea98f079a322145ce65e0754
|
|||||||
alex_fridman_reading bcdfd11e8c234b51147cb33c5b5ece3cf5e21758
|
alex_fridman_reading bcdfd11e8c234b51147cb33c5b5ece3cf5e21758
|
||||||
char 71fafc4e2fc1e47e234762a96b80512b6b5534c2
|
char 71fafc4e2fc1e47e234762a96b80512b6b5534c2
|
||||||
color 6dd0fe8001145bec4a12d0e22da711c4970d000b
|
color 6dd0fe8001145bec4a12d0e22da711c4970d000b
|
||||||
|
csplit_fuckyou 005a3f83529ce91e2b4dc4717504bac4fd7784b4
|
||||||
et a5bc1d9b2ae74e7a8a249659c13b14f5c2eac13f
|
et a5bc1d9b2ae74e7a8a249659c13b14f5c2eac13f
|
||||||
fart' f82f87b4bb1f1de348aea420ff40c4697f8cc41f
|
fart' f82f87b4bb1f1de348aea420ff40c4697f8cc41f
|
||||||
gay 2871591e64f027a23fadafaa00305a8bd3484292
|
gay 2871591e64f027a23fadafaa00305a8bd3484292
|
||||||
|
Loading…
x
Reference in New Issue
Block a user