stackscript/examples/splitstr.st at main · justanothercell/stackscript · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
"std.types" import store types

func splitStr do
    0 store i
    store token
    store string
    true while
        string len 0 = if
            break
        end
        string i index token = if
            string i types :splitat
            1 types :splitat swap drop
            token splitStr
            string len update i
        end
        i 1 +
        dup dup update i
        string len >= if
            string len = if
                string
            end
            break
        end
        drop
        true
    end
end

"=== Split string by space ===" outln
true while
    clear
    "input: " in
    " " splitStr
    dump outln
    true
end