Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- declare
- fun {SimpleJack String Temp FinalList CurrState ReturnList}
- case String
- of nil then nil
- [] H|T then
- case CurrState
- of 0 then %not sure what we're dealing with...need to determine
- if H.isInt() then
- {SimpleJack String Temp FinalList 1 ReturnList}
- else
- {SimpleJack String Temp FinalList 2 ReturnList}
- end
- [] 1 then %dealing with numbers
- if H.isInt() then
- {SimpleJack T H|Temp FinalList 1 ReturnList}
- else %state change. take the temp list, atomize it and add to Final List
- {SimpleJack String nil Temp.toAtom()|FinalList 2 ReturnList}
- end
- [] 2 then %dealing with letters
- end
- end
- end
- local FinalListOfTokens in
- {SimpleJack "abcd1234fdsa5438" nil nil 0 FinalListOfTokens}
- {Browse FinalListOfTokens}
- end
Add Comment
Please, Sign In to add comment