home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / apl / ratapl / ratapl.sys < prev   
Text File  |  1989-03-15  |  15KB  |  86 lines
  1. ai([140,0,0])
  2. oprdf('/',3,[enter([-1,-1,-1]),extrank,enter([-1]),prefer(0),enter([1]),swapds,split,applyred(0),join])
  3. oprdf('/',3,[loadidel])
  4. oprdf('δ',3,[enter([-1,-1,-1]),extrank,enter([1]),swapds,split,applyred(0),join])
  5. oprdf('δ',3,[loadidel])
  6. oprdf('/',2,[enter([-1]),prefer(0),loadfs(fn([0,64,64,64,-1],[symb('δ')])),swapfs,movefs,typeadj,swapds,enter([1]),intrank,split,popds,enclose,swapds,apply,enter([0]),prefer(1)])
  7. oprdf('δ',2,[loadfs(fn([0,64,64,64,-1],[symb('δ')])),swapfs,movefs,typeadj,swapds,enter([1]),intrank,split,popds,enclose,swapds,apply])
  8. oprdf('\',3,[enter([-1,-1,-1]),extrank,enter([-1]),prefer(0),enter([1]),swapds,split,applyred(1),join,enter([0]),prefer(1)])
  9. oprdf('º',3,[enter([-1,-1,-1]),extrank,enter([1]),swapds,split,applyred(1),join])
  10. oprdf('\',2,[enter([-1]),prefer(0),loadfs(fn([0,64,64,64,-1],[symb('º')])),swapfs,movefs,typeadj,swapds,enter([1]),intrank,split,popds,enclose,swapds,apply,enter([0]),prefer(1)])
  11. oprdf('º',2,[loadfs(fn([0,64,64,64,-1],[symb('º')])),swapfs,movefs,typeadj,swapds,enter([1]),intrank,split,popds,enclose,swapds,apply])
  12. oprdf('.',23,[chknil,dupfs,swapdfs,movefs,confrmce,indexgen,prefer(1),split,applycp,join,pushds,swapds,swapfs,movefs,axes,dupds,indexgen,loadfs(fn([5],[pfn(scalar(minus))])),apply,prefer(0)])
  13. oprdf('.',33,[swapds,pushds,swapds,enter([0]),prefer(1),swapds,popds,swapds,swapfs,enter([-1]),extrank,enter([1]),confrmce,popds,split,applycp,join,swapfs,enter([-1,-1,-1]),extrank,pushds,swapds,enter([-1]),axes,prefer(0),enter([1]),swapds,split,applyred(0),join])
  14. oprdf('.',33,[swapds,pushds,swapds,enter([0]),prefer(1),swapds,popds,swapds,swapfs,enter([-1]),extrank,enter([1]),confrmce,popds,split,applycp,join,swapfs,enter([-1,-1,-1]),extrank,pushds,swapds,enter([-1]),axes,prefer(0),loadidel])
  15. oprdf('π',32,[swapfs,movefs,extrank,split,apply,join])
  16. oprdf('π',33,[swapfs,intrank,pushds,swapds,split,apply,swapds,pushds,swapds,split,apply,swapds,swapfs,apply,join])
  17. oprdf('',33,[swapfs,intrank,pushds,swapds,split,apply,swapds,pushds,swapds,split,apply,swapds,swapfs,apply,swapfs,finverse,pushds,swapds,apply,join])
  18. oprdf('',23,[movefs,apply])
  19. oprdf('',32,[swapfs,movefs,swapds,apply])
  20. oprdf('Σ',33,[swapfs,intrank,split,apply,pushds,swapds,swapfs,apply,join])
  21. oprdf('Σ',23,[movefs,axes,prefer(0),apply])
  22. oprdf('Σ',32,[swapfs,movefs,axes,prefer(1),apply])
  23. oprdf(' ',3,[dupdsc,swapds,apply])
  24. oprdf('}',3,[loadfs(fn([0,64,64,64,64],[symb('}')])),typeadj,insfnt,apply])
  25. oprdf('[',433,[dup2ds,swapfs,apply,swapdds,apply,apply])
  26. oprdf(']',433,[dup2ds,dup2ds,swapfs,apply,swapdds,apply,csap,apply])
  27. fndf([0,0,0,0],[symb('+'),pfn(scalar(identity)),types([preal,preal,preal]),fn([5],[pfn(scalar(identity))]),fn([5],[pfn(scalar(plus))]),var([1,0],ival([0]))])
  28. fndf([0,0,0,0],[symb('-'),pfn(scalar(negative)),types([preal,preal,preal]),fn([5],[pfn(scalar(negative))]),fn([5],[pfn(scalar(minus))]),var([1,0],ival([0]))])
  29. fndf([0,0,0,0],[symb('Æ'),null,types([preal,preal,preal]),fn([5],[pfn(scalar(signum))]),fn([5],[pfn(scalar(times))]),var([1,0],ival([1]))])
  30. fndf([0,0,0,0],[symb('÷'),pfn(scalar(recip)),types([preal,preal,preal]),fn([5],[pfn(scalar(recip))]),fn([5],[pfn(scalar(divide))]),var([1,0],ival([1]))])
  31. fndf([0,0,0,0],[symb('ì'),null,types([preal,preal,preal]),fn([5],[pfn(scalar(ceiling))]),fn([5],[pfn(scalar(max))]),var([2,0],rval([-1.E+200]))])
  32. fndf([0,0,0,0],[symb('Å'),null,types([preal,preal,preal]),fn([5],[pfn(scalar(floor))]),fn([5],[pfn(scalar(min))]),var([2,0],rval([1.E+200]))])
  33. fndf([0,0,0,0],[symb('■'),null,types([preal,preal,preal]),fn([5],[pfn(scalar(magnitude))]),fn([5],[pfn(scalar(residue))]),var([1,0],ival([0]))])
  34. fndf([0,0,0,0],[symb('*'),pfn(scalar(nlog)),types([preal,preal,preal]),fn([5],[pfn(scalar(exp))]),fn([5],[pfn(scalar(power))]),var([1,0],ival([1]))])
  35. fndf([0,0,0,0],[symb(''),pfn(scalar(exp)),types([preal,preal,preal]),fn([5],[pfn(scalar(nlog))]),fn([5],[pfn(scalar(log))]),null])
  36. fndf([0,0,0,0],[symb('∙'),null,types([preal,preal,preal]),fn([5],[pfn(scalar(pitimes))]),fn([5],[pfn(scalar(circle))]),var([1,0],ival([0]))])
  37. fndf([0,0,0,0],[symb('!'),null,types([preal,preal,preal]),fn([5],[pfn(scalar(factorial))]),fn([5],[pfn(scalar(binomial))]),var([1,0],ival([1]))])
  38. fndf([0,0,0,0],[symb('~'),pfn(scalar(lnot)),types([pint(0),pany,pany]),fn([5],[pfn(scalar(lnot))]),null,null])
  39. fndf([0,0,0,0],[symb('·'),null,types([pany,pint(0),pint(0)]),null,fn([5],[pfn(scalar(lor))]),var([1,0],ival([0]))])
  40. fndf([0,0,0,0],[symb('σ'),null,types([pany,pint(0),pint(0)]),null,fn([5],[pfn(scalar(nor))]),null])
  41. fndf([0,0,0,0],[symb('^'),null,types([pany,pint(0),pint(0)]),null,fn([5],[pfn(scalar(land))]),var([1,0],ival([1]))])
  42. fndf([0,0,0,0],[symb('Ω'),null,types([pany,pint(0),pint(0)]),null,fn([5],[pfn(scalar(nand))]),null])
  43. fndf([0,0,0,0],[symb('<'),pfn(prim(disclose)),types([pany,preal,preal]),fn([5],[pfn(prim(enclose))]),fn([5],[pfn(scalar(less))]),var([1,0],ival([0]))])
  44. fndf([0,0,0,0],[symb('≤'),null,types([pany,preal,preal]),null,fn([5],[pfn(scalar(ngreater))]),var([1,0],ival([1]))])
  45. fndf([0,0,0,0],[symb('>'),pfn(prim(enclose)),types([pany,preal,preal]),fn([5],[pfn(prim(disclose))]),fn([5],[pfn(scalar(greater))]),var([1,0],ival([0]))])
  46. fndf([0,0,0,0],[symb('≥'),null,types([pany,preal,preal]),null,fn([5],[pfn(scalar(nless))]),var([1,0],ival([1]))])
  47. fndf([0,64,0,0],[symb('='),null,types([pany,psame,psame]),fn([5],[fn([1,64,64,64,64],[dop([1,64,64,64,64],[mop([0],[char('[')]),fn([1,64,64,64,64],[dop([0],[char('.')]),var([3,0],eval([null])),fn([0,64,64,64,64],[symb('=')])])]),fn([0,64,64,64,64],[symb('')]),fn([0,64,64,64,64],[symb('')])])]),fn([5],[pfn(scalar(equal))]),var([1,0],ival([1]))])
  48. fndf([0,0,0,0],[symb('å'),null,types([pany,psame,psame]),null,fn([5],[pfn(scalar(nequal))]),var([1,0],ival([0]))])
  49. fndf([0,64,64,64],[symb('≡'),null,types([pany,psame,psame]),null,fn([5],[pfn(prim(idem))]),null])
  50. fndf([0,64,64,64],[symb(''),pfn(prim(pass)),types([pany,pany,pany]),fn([5],[pfn(prim(pass))]),fn([5],[pfn(prim(dex))]),null])
  51. fndf([0,64,64,64],[symb(''),null,types([pany,pany,pany]),fn([5],[pfn(prim(stop))]),fn([5],[pfn(prim(lev))]),null])
  52. fndf([0,64,1,64],[symb('√'),null,types([pany,pint(2),pany]),fn([5],[pfn(prim(shape))]),fn([5],[fn([1,64,64,1,64],[pfn(struct(struct2(reshape)))])]),null])
  53. fndf([0,64,1,64],[symb(''),null,types([pany,pint(2),pany]),fn([5],[fn([1,64,64,64,64],[dop([0],[char('Σ')]),fn([0,64,64,64,64],[symb('>')]),fn([1,64,64,64,64],[dop([0],[char('Σ')]),fn([0,64,64,64,64],[fn([5],[pfn(prim(nub))])]),fn([1,64,64,64,64],[dop([0],[char('π')]),fn([0,64,64,64,64],[symb('<')]),var([1,0],ival([-1]))])])])]),fn([5],[fn([1,64,64,1,64],[pfn(prim(take(1)))])]),null])
  54. fndf([0,64,1,64],[symb(''),null,types([pany,pint(2),pany]),fn([5],[fn([1,64,64,64,64],[mop([0],[char('/')]),fn([1,64,64,64,64],[dop([0],[char('')]),fn([0,64,64,64,64],[symb('₧')]),fn([0,64,64,64,64],[symb('>')])])])]),fn([5],[fn([1,64,64,1,64],[pfn(prim(take(-1)))])]),null])
  55. fndf([0,64,0,64],[symb('{'),null,types([pany,pencl,pany]),null,fn([5],[fn([1,64,64,0,64],[pfn(prim(from))])]),null])
  56. fndf([0,64,0,64],[symb('{'),null,types([pany,pint(2),pany]),fn([5],[fn([1,64,64,64,64],[dop([0],[char('Σ')]),fn([0,64,64,64,64],[symb('>')]),fn([1,64,64,64,64],[dop([0],[char('Σ')]),fn([1,64,64,64,64],[mop([0],[char('/')]),fn([1,64,64,64,64],[dop([0],[char('')]),fn([1,64,64,64,64],[dop([0],[char('.')]),var([1,0],ival([0])),fn([1,64,64,64,64],[dop([0],[char('')]),fn([0,64,64,64,64],[symb(',')]),fn([0,64,64,64,64],[symb('>')])])]),fn([0,64,64,64,64],[symb('>')])])]),fn([1,64,64,64,64],[dop([0],[char('')]),fn([1,64,64,64,64],[dop([0],[char('π')]),fn([0,64,64,64,64],[symb('<')]),var([1,0],ival([0]))]),fn([0,64,64,64,64],[symb('>')])])])])]),fn([5],[fn([1,64,64,0,64],[pfn(struct(struct2(from)))])]),null])
  57. fndf([0,1,0,1],[symb('Φ'),pfn(struct(struct2(reverse))),types([pany,pint(2),pany]),fn([5],[fn([1,64,1,0,1],[pfn(struct(struct2(reverse)))])]),fn([5],[fn([1,64,1,0,1],[pfn(struct(struct2(rotate)))])]),null])
  58. fndf([0,64,64,64],[symb('Θ'),symb('Θ'),types([pany,pint(2),pany]),fn([5],[fn([1,64,64,64,64],[dop([0],[char('')]),fn([0,64,64,64,64],[symb('Φ')]),fn([0,64,64,64,64],[symb('φ')])])]),fn([5],[fn([1,64,64,64,64],[dop([0],[char('')]),fn([0,64,64,64,64],[symb('Φ')]),fn([0,64,64,64,64],[symb('φ')])])]),null])
  59. fndf([0,64,1,64],[symb('φ'),pfn(struct(struct2(mtransp))),types([pany,pint(2),pany]),fn([5],[pfn(struct(struct2(mtransp)))]),fn([5],[fn([1,64,64,1,64],[pfn(struct(struct2(dtransp)))])]),null])
  60. fndf([0,64,64,64],[symb(','),null,types([pany,psame,psame]),fn([5],[pfn(prim(ravel))]),fn([5],[fn([1,64,64,64,64],[dop([0],[char('')]),fn([0,64,64,64,64],[symb('₧')]),fn([0,64,64,64,64],[symb('φ')])])]),null])
  61. fndf([0,64,64,64],[symb('₧'),null,types([pany,psame,psame]),fn([5],[fn([1,64,-1,64,64],[pfn(prim(ravel))])]),fn([5],[pfn(struct(struct3(catenatefst)))]),null])
  62. fndf([0,64,1,64],[symb('Γ'),null,types([pint(2),psame,psame]),fn([5],[pfn(prim(indexgen))]),fn([5],[fn([1,64,64,1,64],[pfn(prim(indexof))])]),null])
  63. fndf([0,64,64,64],[symb(''),null,types([psame,pchar,pchar]),fn([5],[pfn(struct(mixed(grade(1))))]),fn([5],[fn([1,64,64,64,64],[dop([0],[char('Σ')]),fn([0,64,64,64,64],[pfn(struct(mixed(grade(1))))]),fn([0,64,1,1,64],[pfn(prim(indexof))])])]),null])
  64. fndf([0,64,64,64],[symb(''),null,types([psame,pany,pany]),fn([5],[pfn(struct(mixed(grade(-1))))]),fn([5],[fn([1,64,64,64,64],[dop([0],[char('Σ')]),fn([0,64,64,64,64],[pfn(struct(mixed(grade(-1))))]),fn([0,64,1,1,64],[pfn(prim(indexof))])])]),null])
  65. fndf([0,0,0,0],[symb('?'),null,types([pint(2),pint(2),pint(2)]),fn([5],[pfn(struct(mixed(roll)))]),fn([5],[pfn(struct(mixed(deal)))]),null])
  66. fndf([0,64,0,64],[symb('ε'),null,types([pany,psame,psame]),null,fn([5],[fn([1,64,64,1,64],[pfn(prim(member))])]),null])
  67. fndf([0,1,1,64],[symb('µ'),null,types([pany,pint(3),pint(3)]),null,fn([5],[fn([1,64,64,64,64],[dop([0],[char('Σ')]),fn([1,64,64,1,1],[pfn(prim(decode))]),var([1,0],ival([0]))])]),null])
  68. fndf([0,-1,64,64],[symb('τ'),null,types([pany,pint(3),pint(3)]),null,fn([5],[fn([1,64,64,64,64],[dop([0],[char('Σ')]),fn([1,64,64,64,64],[dop([0],[char('Σ')]),var([1,0],ival([-1])),fn([1,64,64,64,64],[pfn(prim(pass))])]),fn([1,64,64,64,64],[fn([1,64,64,1,0],[pfn(prim(encode))])])])]),null])
  69. fndf([0,64,2,2],[symb('⌠'),null,types([pany,preal,pany]),fn([5],[pfn(prim(mformat))]),fn([5],[pfn(prim(dformat))]),null])
  70. fndf([0,1,1,1],[symb('⌡'),null,types([pany,pany,pany]),fn([5],[fn([1,64,1,1,1],[pfn(prim(mexecute))])]),fn([5],[fn([1,64,1,1,1],[pfn(prim(dexecute))])]),null])
  71. fndf([0,64,64,64],[symb(''),null,types([pany,pany,pany]),fn([5],[pfn(prim(condencl))]),fn([5],[pfn(prim(link))]),null])
  72. fndf([0,64,64,64],[symb(''),null,types([pany,pint(2),pany]),null,fn([5],[pfn(prim(ibeam))]),null])
  73. fndf([0,-1,64,64],[symb('@'),null,types([pany,pencl,pany]),null,fn([5],[pfn(prim(merge))]),null])
  74. fndf([0,-1,64,64],[symb('}'),null,types([pany,psame,psame]),null,fn([5],[fn([1,64,64,64,64],[dop([1,64,64,64,64],[mop([0],[char('[')]),fn([0,64,64,64,64],[symb('@')])]),fn([1,64,64,64,64],[dop([1,64,64,64,64],[mop([0],[char('[')]),fn([0,64,64,64,64],[symb('')])]),fn([0,64,64,64,64],[symb('')]),fn([1,64,64,64,64],[dop([0],[char('Σ')]),fn([1,64,64,64,64],[dop([0],[char('Σ')]),null,fn([1,64,64,64,64],[dop([1,64,64,64,64],[mop([0],[char('[')]),fn([0,64,64,64,64],[symb('√')])]),fn([0,64,64,64,64],[symb('√')]),fn([1,64,64,64,64],[dop([0],[char('Σ')]),fn([0,64,64,64,64],[symb('Γ')]),fn([1,64,64,64,64],[dop([0],[char('Σ')]),fn([1,64,64,64,64],[mop([0],[char('/')]),fn([0,64,64,64,64],[symb('Æ')])]),fn([0,64,64,64,64],[symb('√')])])])])]),fn([0,64,64,64,64],[symb('')])])]),fn([0,64,64,64,64],[symb('')])])]),null])
  75. fndf([0,64,64,-1],[symb('δ'),null,types([pany,pint(2),pany]),null,fn([5],[fn([1,64,64,64,-1],[dop([0],[char('Σ')]),fn([1,64,64,64,64],[dop([0],[char('Σ')]),fn([5],[pfn(prim(disclose))]),fn([0,64,1,64],[symb('')])]),fn([1,64,64,64,64],[fn([5],[pfn(prim(repl))])])])]),null])
  76. fndf([0,64,64,-1],[symb('º'),null,types([pany,pint(2),pany]),null,fn([5],[fn([1,64,64,64,-1],[dop([0],[char('Σ')]),fn([5],[pfn(prim(disclose))]),fn([1,64,64,64,64],[fn([5],[pfn(struct(struct2(expand)))])])])]),null])
  77. fndf([0,-1,64,64],[symb('#'),null,types([pany,pencl,pany]),fn([5],[pfn(part(prim(getpart)))]),fn([5],[pfn(part(prim(putpart)))]),null])
  78. fndf([0,64,64,64],[name("òom"),null,types([pstrg,pstrg,pany]),null,fn([5],[pfn(prim(stmgr))]),null])
  79. fndf([0,64,64,64],[name("òex"),null,types([pchar,pany,pany]),fn([5],[fn([1,64,1,64,64],[dop([0],[char('Σ')]),fn([1,64,64,64,64],[dop([0],[char('')]),var([3,0],eval([remove])),fn([5],[pfn(prim(stmgr))])]),fn([1,64,1,0,1],[dop([0],[char('')]),var([1,0],ival([6])),fn([5],[pfn(prim(ibeam))])])])]),null,null])
  80. fndf([0,64,64,64],[name("ònc"),null,types([pchar,pany,pany]),fn([5],[fn([1,64,1,64,64],[dop([0],[char('Σ')]),fn([1,64,64,64,64],[dop([0],[char('')]),var([3,0],eval([nmcl])),fn([5],[pfn(prim(stmgr))])]),fn([1,64,1,0,1],[dop([0],[char('')]),var([1,0],ival([6])),fn([5],[pfn(prim(ibeam))])])])]),null,null])
  81. fndf([0,64,64,64],[name("ònl"),null,types([pint(2),pany,pany]),fn([5],[fn([1,64,0,64,64],[dop([0],[char('Σ')]),fn([1,64,64,64,64],[dop([0],[char('π')]),fn([1,64,64,0,0],[dop([0],[char('')]),var([1,0],ival([0])),fn([5],[pfn(prim(ibeam))])]),fn([0,64,64,64,64],[symb('>')])]),fn([1,64,0,64,64],[dop([0],[char('')]),var([3,0],eval([nmls])),fn([5],[pfn(prim(stmgr))])])])]),null,null])
  82. fndf([0,64,64,64],[name("òcr"),null,types([pchar,pany,pany]),fn([5],[fn([1,64,1,64,64],[dop([0],[char('Σ')]),fn([1,64,64,64,64],[dop([0],[char('Σ')]),fn([0,64,64,64,64],[symb('⌠')]),fn([1,64,0,64,64],[fn([5],[pfn(prim(stmgr))])])]),fn([1,64,1,0,1],[dop([0],[char('')]),var([1,0],ival([6])),fn([5],[pfn(prim(ibeam))])])])]),null,null])
  83. fndf([0,64,64,64],[name("fd"),null,types([pany,pany,pany]),fn([5],[fn([1,64,1,64,64],[dop([0],[char('Σ')]),fn([1,64,64,64,64],[dop([0],[char('')]),fn([1,64,1,0,1],[dop([0],[char('')]),var([1,0],ival([8])),fn([5],[pfn(prim(ibeam))])]),fn([0,64,64,64,64],[symb('>')])]),fn([1,64,64,64,64],[dop([0],[char('Σ')]),fn([5],[pfn(prim(ravel))]),fn([0,64,64,64,64],[symb('')])])])]),null,null])
  84. fndf([0,64,64,64],[name("òedit"),null,types([pany,pany,pany]),fn([5],[fn([1,64,64,64,64],[dop([0],[char('Σ')]),fn([1,64,64,64,64],[dop([0],[char('')]),fn([1,64,64,64,64],[dop([0],[char('')]),var([1,0],ival([0])),fn([0,64,64,64,64],[symb('')])]),fn([0,64,64,64,64],[symb('>')])]),fn([1,64,64,64,64],[dop([0],[char('Σ')]),fn([1,64,64,64,64],[dop([0],[char('')]),var([1,0],ival([20])),fn([0,64,64,64,64],[symb('')])]),fn([1,64,64,64,64],[dop([0],[char('π')]),fn([1,64,64,64,64],[dop([0],[char('')]),var([1,0],ival([6])),fn([0,64,64,64,64],[symb('')])]),fn([0,64,64,64,64],[symb('>')])])])])]),null,null])
  85. fndf([0,64,64,64],[name("òcmd"),null,types([pchar,pint(0),pchar]),fn([5],[fn([1,64,1,64,64],[dop([0],[char('Σ')]),fn([1,64,64,64,64],[dop([0],[char('')]),var([1,0],ival([0])),fn([5],[pfn(prim(system))])]),fn([1,64,1,0,1],[dop([0],[char('')]),var([1,0],ival([6])),fn([5],[pfn(prim(ibeam))])])])]),null,null])
  86.