home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / e / e032 / 3.ddi / FILES / PROGRAMM.PAK / ATOMS.M < prev    next >
Encoding:
Text File  |  1992-07-29  |  656 b   |  27 lines
  1.  
  2. (*********************************************************************
  3.  
  4.         Adapted from
  5.         Roman E. Maeder: Programming in Mathematica,
  6.         Second Edition, Addison-Wesley, 1991.
  7.  
  8.  *********************************************************************)
  9.  
  10.  
  11. Explode::usage = "Explode[expr] turns an expression into
  12.     a list of characters that make up its name."
  13.  
  14. Intern::usage = "Intern[charlist] turns a list of characters into an expression."
  15.  
  16. Begin["`Private`"]
  17.  
  18. Explode[atom_] := Characters[ ToString[InputForm[atom]] ]
  19.  
  20. Intern[l:{_String..}] := ToExpression[ StringJoin @@ l ]
  21.  
  22. End[]
  23.  
  24. Protect[Explode, Intern]
  25.  
  26. Null
  27.