13 lines
367 B
Plaintext
13 lines
367 B
Plaintext
Module CheckIt {
|
|
Function Tokenize$(s){
|
|
\\ letter$ pop a string from stack of values
|
|
\\ shift 2 swap top two values on stack of values
|
|
fold1=lambda m=1 ->{
|
|
shift 2 :if m=1 then m=0:drop: push letter$ else push letter$+"."+letter$
|
|
}
|
|
=s#fold$(fold1)
|
|
}
|
|
Print Tokenize$(piece$("Hello,How,Are,You,Today",",")) ="Hello.How.Are.You.Today" ' true
|
|
}
|
|
Checkit
|