home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 018.lha / prelude / integer.p < prev    next >
Encoding:
Text File  |  1986-10-19  |  3.4 KB  |  146 lines
  1. temp <- <primitive 110 31 >
  2. <primitive 112 temp 1        " timesRepeat: " \
  3.     #( #[ 80 114 34 32 199 247 11 33 165 242 34 81 192 241 114 \
  4.  242 249 16 242 245] \
  5.     #(  ) ) >
  6.  
  7. <primitive 112 temp 2        " rem: " \
  8.     #( #[ 32 33 250 2 6 247 7 32 33 250 2 29 248 4 242 \
  9.  32 10 35 243 245] \
  10.     #(  ) ) >
  11.  
  12. <primitive 112 temp 3        " radix: " \
  13.     #( #[ 32 33 250 2 26 243 245] \
  14.     #(  ) ) >
  15.  
  16. <primitive 112 temp 4        " quo: " \
  17.     #( #[ 32 33 250 2 6 247 7 32 33 250 2 28 248 4 242 \
  18.  32 10 35 243 245] \
  19.     #(  ) ) >
  20.  
  21. <primitive 112 temp 5        " odd " \
  22.     #( #[ 32 82 205 80 202 243 245] \
  23.     #(  ) ) >
  24.  
  25. <primitive 112 temp 6        " noMask: " \
  26.     #( #[ 80 32 33 197 201 243 245] \
  27.     #(  ) ) >
  28.  
  29. <primitive 112 temp 7        " lcm: " \
  30.     #( #[ 32 33 250 2 6 247 10 32 33 194 32 33 11 27 206 \
  31.  248 4 242 32 10 35 243 245] \
  32.     #(  ) ) >
  33.  
  34. <primitive 112 temp 8        " highBit " \
  35.     #( #[ 32 250 1 34 243 245] \
  36.     #(  ) ) >
  37.  
  38. <primitive 112 temp 9        " gcd: " \
  39.     #( #[ 32 33 250 2 6 247 7 32 33 250 2 20 248 4 242 \
  40.  32 10 35 243 245] \
  41.     #(  ) ) >
  42.  
  43. <primitive 112 temp 10        " factorial " \
  44.     #( #[ 32 250 1 38 243 245] \
  45.     #(  ) ) >
  46.  
  47. <primitive 112 temp 11        " even " \
  48.     #( #[ 32 82 205 80 201 243 245] \
  49.     #(  ) ) >
  50.  
  51. <primitive 112 temp 12        " bitXor: " \
  52.     #( #[ 32 33 250 2 24 243 245] \
  53.     #(  ) ) >
  54.  
  55. <primitive 112 temp 13        " bitShift: " \
  56.     #( #[ 32 33 250 2 25 243 245] \
  57.     #(  ) ) >
  58.  
  59. <primitive 112 temp 14        " bitOr: " \
  60.     #( #[ 32 33 250 2 22 243 245] \
  61.     #(  ) ) >
  62.  
  63. <primitive 112 temp 15        " bitInvert " \
  64.     #( #[ 32 250 1 33 243 245] \
  65.     #(  ) ) >
  66.  
  67. <primitive 112 temp 16        " bitAt: " \
  68.     #( #[ 32 33 250 2 21 243 245] \
  69.     #(  ) ) >
  70.  
  71. <primitive 112 temp 17        " bitAnd: " \
  72.     #( #[ 32 33 250 2 23 243 245] \
  73.     #(  ) ) >
  74.  
  75. <primitive 112 temp 18        " asString " \
  76.     #( #[ 32 250 1 37 243 245] \
  77.     #(  ) ) >
  78.  
  79. <primitive 112 temp 19        " asFloat " \
  80.     #( #[ 32 250 1 39 243 245] \
  81.     #(  ) ) >
  82.  
  83. <primitive 112 temp 20        " asCharacter " \
  84.     #( #[ 32 250 1 36 243 245] \
  85.     #(  ) ) >
  86.  
  87. <primitive 112 temp 21        " anyMask: " \
  88.     #( #[ 80 32 33 250 2 23 202 243 245] \
  89.     #(  ) ) >
  90.  
  91. <primitive 112 temp 22        " allMask: " \
  92.     #( #[ 33 32 33 250 2 23 201 243 245] \
  93.     #(  ) ) >
  94.  
  95. <primitive 112 temp 23        " \\ " \
  96.     #( #[ 32 33 250 2 6 247 18 32 32 80 199 247 3 90 248 \
  97.  2 242 81 194 114 34 33 205 248 4 242 32 10 35 243 \
  98.  245] \
  99.     #(  ) ) >
  100.  
  101. <primitive 112 temp 24        " // " \
  102.     #( #[ 32 33 250 2 6 247 7 32 33 250 2 19 248 4 242 \
  103.  32 10 35 243 245] \
  104.     #(  ) ) >
  105.  
  106. <primitive 112 temp 25        " / " \
  107.     #( #[ 32 175 33 190 243 245] \
  108.     #(  ) ) >
  109.  
  110. <primitive 112 temp 26        " * " \
  111.     #( #[ 32 33 250 2 6 247 7 32 33 250 2 18 248 5 242 \
  112.  32 33 145 0 243 245] \
  113.     #( #*  ) ) >
  114.  
  115. <primitive 112 temp 27        " - " \
  116.     #( #[ 32 33 250 2 6 247 7 32 33 250 2 11 248 5 242 \
  117.  32 33 145 0 243 245] \
  118.     #( #-  ) ) >
  119.  
  120. <primitive 112 temp 28        " + " \
  121.     #( #[ 32 33 250 2 6 247 7 32 33 250 2 10 248 5 242 \
  122.  32 33 145 0 243 245] \
  123.     #( #+  ) ) >
  124.  
  125. <primitive 112 temp 29        " < " \
  126.     #( #[ 32 33 250 2 6 247 7 32 33 250 2 12 248 5 242 \
  127.  32 33 145 0 243 245] \
  128.     #( #<  ) ) >
  129.  
  130. <primitive 112 temp 30        " > " \
  131.     #( #[ 32 33 250 2 6 247 7 32 33 250 2 13 248 5 242 \
  132.  32 33 145 0 243 245] \
  133.     #( #>  ) ) >
  134.  
  135. <primitive 112 temp 31        " = " \
  136.     #( #[ 32 33 250 2 6 247 7 32 33 250 2 16 248 5 242 \
  137.  32 33 145 0 243 245] \
  138.     #( #=  ) ) >
  139.  
  140. <primitive 98 #Integer \
  141.     <primitive 97 #Integer #Number #Smalltalk:prelude/integer.st \
  142.     #(  ) \
  143.     #( #timesRepeat: #rem: #radix: #quo: #odd #noMask: #lcm: #highBit #gcd: #factorial #even #bitXor: #bitShift: #bitOr: #bitInvert #bitAt: #bitAnd: #asString #asFloat #asCharacter #anyMask: #allMask: #\\ #// #/ #* #- #+ #< #> #=  ) \
  144.     temp 3 5 > >
  145.  
  146.