home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / PROG / MISC / RATAPL.ZIP / DEMO.RAW next >
Encoding:
Text File  |  1989-03-03  |  1.8 KB  |  41 lines
  1. ws("bench",0,[1988,12,20,22,23,40,51])
  2. wstk(st(symb('*'),var([6,1,0],sval([])),[],syv([['.',',','*','*','_','²']],[[0],[0],[0],[32767],[10],[-1,-1,0,1],[80],[0]]),null,sitop,tval([],[])))
  3. inp(0,ss("211 23 0 0 0,23Γ0"))
  4. inp(0,ss("'      A short demo of the Rationalized APL interpreter'"))
  5. inp(1,ss("(4 4√100+Γ16)+π1 99 98 97 96"))
  6. inp(1,ss("4m,π2Σ0 2 3 4√Γ24"))
  7. inp(1,ss("Γπ(0) 4 2 9"))
  8. inp(1,ss("(Γ10)ε1 2,'abc', 6 7 11"))
  9. inp(1,ss("òdbg1 ª show syntax parsing"))
  10. inp(1,ss("(+/x)÷√x43 83 12 25 71"))
  11. inp(1,ss("òdbg0"))
  12. inp(1,ss("mean+/÷[√"))
  13. inp(1,ss("0.5(* )+/(x-''√mean x)*2"))
  14. inp(1,ss("a2'Apples''Pears''Cherries'"))
  15. inp(1,ss("a2>a2,'Oranges''Lemons'"))
  16. inp(1,ss("√b21 4 2 1 0 3 2 4 0{4π1 a2"))
  17. inp(1,ss("b2^.=φb2"))
  18. inp(1,ss("dot. ª function and operator assignment"))
  19. inp(1,ss("ònc 'dot'"))
  20. inp(1,ss("('and''equal')⌡π>'^''='"))
  21. inp(1,ss("lookup(Γ1)Σ(and dot equal )"))
  22. inp(1,ss("row'Pe' lookup 0 1{π1 a2"))
  23. inp(1,ss("a2åc2((²1√a2)'Peaches') row{} a2 ª merge function"))
  24. inp(1,ss("211òa2213 32 32 10 45 10 32"))
  25. inp(1,ss("·º°.= Γ5"))
  26. inp(1,ss("fac('1+≤1''Ʊ -1''1')∞° ª function definition"))
  27. inp(1,ss("fac 3"))
  28. inp(1,ss("0{>òcr 'fac'"))
  29. inp(1,ss("far⌡π>'+''-''Æ''÷' ª function array"))
  30. inp(1,ss("2 far 3"))
  31. inp(1,ss("5∞far ª function array filler element"))
  32. inp(1,ss("2 (2{∞far) Γ10 ª function selection"))
  33. inp(1,ss("(⌡π0 'Φ√') 3 3√Γ9"))
  34. inp(1,ss("sort' abcdefghijklmnopqrstuvwxyz'{["))
  35. inp(1,ss("o2sort ònl ²1 ª object classes"))
  36. inp(1,ss("cl>(ònc o2){' ?'''' Variable'' Function'' Mon. op.'' Dyad. op.'"))
  37. inp(1,ss("o2,π1 cl"))
  38. inp(1,ss("211òedit <π1 a2213 ª an edit example"))
  39. inp(1,ss("òsa ª available storage (stack, heap, trail)"))
  40. inp(1,ss("'Date: ',(0 1 2{òts),' Time: ',3 4 5{òts ª heterogeneous arrays"))
  41.