home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / lifeos2.zip / LIFE-1.02 / TESTS / REFOUT / GLOB_TES.REF < prev    next >
Text File  |  1996-06-04  |  2KB  |  166 lines
  1.  
  2. *** Yes
  3. > > 
  4. *** Yes
  5. > > persistent(a)?
  6.  
  7. *** Yes
  8. > ersistent(b)?
  9.  
  10. *** Yes
  11. > ersistent(c)?
  12.  
  13. *** Yes
  14. > ersistent(d)?
  15.  
  16. *** Yes
  17. > ersistent(e)?
  18.  
  19. *** Yes
  20. > ersistent(f)?
  21.  
  22. *** Yes
  23. > > 
  24. > 
  25. > check :-
  26. |        write("
  27. |    a=",a,"
  28. |    b=",b,"
  29. |    c=",c,"
  30. |    d=",d,"
  31. |    e=",e,"
  32. |    f=",f,"
  33. |    ").
  34.  
  35. *** Yes
  36. > 
  37. > 
  38. > 
  39. > a <<- billy_the_hilly(hair => knots,
  40. |                arms => long,
  41. |                teeth => yellow,
  42. |                eyes => red,
  43. |                voice => cracked,
  44. |                nails => {black;broken},
  45. |                nose => pimples,
  46. |                breath => bad,
  47. |                vehicle => truck(paint => gone,
  48. |                         gun_rack => full,
  49. |                         fuel_consumption => enormous,
  50. |                         size => much_too_big,
  51. |                         speed => really_slow,
  52. |                         location => in_front_of_you),
  53. |                feet => smelly,
  54. |                armpits => worse,
  55. |                belly => hangs_out,
  56. |                fingers => gnarled,
  57. |                mouth => full_of_beer,
  58. |                hand => down_his_pants) ?
  59.  
  60. *** Yes
  61. --1> 
  62. *** No
  63. > 
  64. > a = @(feet => S), write(S),nl ?
  65. smelly
  66.  
  67. *** Yes
  68. S = smelly.
  69. --1> 
  70. *** No
  71. > a = @(hair => H, arms => A, teeth => T), write(H,A,T),nl ?
  72. knotslongyellow
  73.  
  74. *** Yes
  75. A = long, H = knots, T = yellow.
  76. --1> 
  77. *** No
  78. > a = @(hair => H, arms => A, joke => bad, teeth => T) ?
  79.  
  80. *** No
  81. > 
  82. > a = @(hair => H, arms => A, aardvark => bad, teeth => T) ?
  83.  
  84. *** No
  85. > 
  86. > a = @(hair => H, arms => A, zebra => bad, teeth => T) ?
  87.  
  88. *** No
  89. > 
  90. > a <<- p(b,c), check?
  91.  
  92. a=p(@,@)
  93. b=@
  94. c=@
  95. d=@
  96. e=@
  97. f=@
  98.  
  99. *** Yes
  100. --1> 
  101. *** No
  102. > 
  103. > b <<- 5, check ?
  104.  
  105. a=p(5,@)
  106. b=5
  107. c=@
  108. d=@
  109. e=@
  110. f=@
  111.  
  112. *** Yes
  113. --1> 
  114. *** No
  115. > c <<- letters(a,b,c), check ?
  116.  
  117. a=_A: p(_B: 5,_C: letters(_A,_B,_C))
  118. b=5
  119. c=_A: letters(p(_B: 5,_A),_B,_A)
  120. d=@
  121. e=@
  122. f=@
  123.  
  124. *** Yes
  125. --1> 
  126. *** No
  127. > a <<- q(a,b,c), check?
  128.  
  129. a=_A: q(_A,_B: 5,_C: letters(_A,_B,_C))
  130. b=5
  131. c=_A: letters(_B: q(_B,_C: 5,_A),_C,_A)
  132. d=@
  133. e=@
  134. f=@
  135.  
  136. *** Yes
  137. --1> 
  138. *** No
  139. > d <<- exam(b,a,c), check ?
  140.  
  141. a=_A: q(_A,_B: 5,_C: letters(_A,_B,_C))
  142. b=5
  143. c=_A: letters(_B: q(_B,_C: 5,_A),_C,_A)
  144. d=exam(_A: 5,_B: q(_B,_A,_C: letters(_B,_A,_C)),_C)
  145. e=@
  146. f=@
  147.  
  148. *** Yes
  149. --1> 
  150. *** No
  151. > e = a, check ?
  152. > 
  153. > d = exam(A,B,C), write(A,B,C), check ?
  154. 5B: q(B,A: 5,C: letters(B,A,C))C: letters(B: q(B,A: 5,C),A,C)
  155. a=B: q(B,A: 5,C: letters(B,A,C))
  156. b=5
  157. c=C: letters(B: q(B,A: 5,C),A,C)
  158. d=exam(A: 5,B: q(B,A,C: letters(B,A,C)),C)
  159. e=@
  160. f=@
  161.  
  162. *** Yes
  163. A = 5, B = q(B,A,C), C = letters(B,A,C).
  164. --1> alt?
  165.  
  166.