Evaluated eval [wget https://dpaste.com/BUDDSCQ3Y.txt]
This commit is contained in:
parent
c5b92d0a99
commit
163cae0843
@ -1,53 +1,53 @@
|
|||||||
s {
|
s {
|
||||||
set f 0;
|
set f 0;
|
||||||
set r [list];
|
set r [list];
|
||||||
set a [list];
|
set a [list];
|
||||||
set e [list];
|
set e [list];
|
||||||
set i 0;
|
set i 0;
|
||||||
foreach c [split $s ""] {
|
foreach c [split $s ""] {
|
||||||
switch -- $f {
|
switch -- $f {
|
||||||
0 {
|
0 {
|
||||||
switch -- $c {
|
switch -- $c {
|
||||||
{set f 1;set b }
|
\003 {set f 1;set b }
|
||||||
{lappend e [list $i ]}
|
\002 {lappend e [list $i ]}
|
||||||
{lappend e [list $i ]}
|
\037 {lappend e [list $i ]}
|
||||||
{lappend e [list $i ]}
|
\026 {lappend e [list $i ]}
|
||||||
{lappend e [list $i ]}
|
\017 {lappend e [list $i ]}
|
||||||
default {lappend a $c;incr i}
|
default {lappend a $c;incr i}
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
1 {
|
1 {
|
||||||
switch -regexp -- $c {
|
switch -regexp -- $c {
|
||||||
\\d {append b $c;incr f}
|
\\d {append b $c;incr f}
|
||||||
default {lappend e [list $i $b];lappend a $c;incr i;set f 0}
|
default {lappend e [list $i $b];lappend a $c;incr i;set f 0}
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
2 {
|
2 {
|
||||||
switch -regexp -- $c {
|
switch -regexp -- $c {
|
||||||
\\d {append b $c;incr f}
|
\\d {append b $c;incr f}
|
||||||
, {append b $c;set f 4}
|
, {append b $c;set f 4}
|
||||||
default {lappend e [list $i $b];lappend a $c;incr i;set f 0}
|
default {lappend e [list $i $b];lappend a $c;incr i;set f 0}
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
3 {
|
3 {
|
||||||
switch -- $c {
|
switch -- $c {
|
||||||
, {append b $c;incr f}
|
, {append b $c;incr f}
|
||||||
default {lappend e [list $i $b];lappend a $c;incr i;set f 0}
|
default {lappend e [list $i $b];lappend a $c;incr i;set f 0}
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
4 {
|
4 {
|
||||||
switch -regexp -- $c {
|
switch -regexp -- $c {
|
||||||
\\d {append b $c;incr f}
|
\\d {append b $c;incr f}
|
||||||
default {lappend e [list $i $b];lappend a $c;incr i;set f 0}
|
default {lappend e [list $i $b];lappend a $c;incr i;set f 0}
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
5 {
|
5 {
|
||||||
switch -regexp -- $c {
|
switch -regexp -- $c {
|
||||||
\\d {append b $c;lappend e [list $i $b];set f 0}
|
\\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}
|
default {lappend e [list $i $b];lappend a $c;incr i;set f 0}
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
return [list $a $e]
|
return [list $a $e]
|
||||||
}
|
}
|
||||||
|
Loading…
x
Reference in New Issue
Block a user