Guest User

Untitled

a guest
Mar 10th, 2018
140
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Oz 0.88 KB | None | 0 0
  1. declare
  2. fun {SimpleJack String Temp FinalList CurrState}
  3.    case String
  4.    of nil then nil
  5.    [] H|T then
  6.       case CurrState
  7.       of 0 then %not sure what we're dealing with...need to determine
  8.      if H.isInt() then
  9.         {SimpleJack String Temp FinalList 1}
  10.      else
  11.         {SimpleJack String Temp FinalList 2}
  12.      end
  13.       [] 1 then %dealing with numbers
  14.      if H.isInt() then
  15.         {SimpleJack T H|Temp FinalList 1}
  16.      else %state change. take the temp list, atomize it and add to Final List
  17.         {SimpleJack String nil Temp.toAtom()|FinalList 2}
  18.      end
  19.       [] 2 then %dealing with letters
  20.      if H.isInt() then %state change.
  21.         {SimpleJack String nil Temp.toAtom()|FinalList 1}
  22.      else
  23.         {SimpleJack T H|Temp FinalList 2}
  24.      end
  25.       end
  26.    end
  27. end
  28.  
  29. local FinalListOfTokens in
  30.    FinalListOfToken = {SimpleJack "abcd1234fdsa5438" nil nil 0}
  31.    {Browse FinalListOfTokens}
  32. end
Add Comment
Please, Sign In to add comment