home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 5 / Apprentice-Release5.iso / Environments / Prometheus 1.1 / ex next >
Encoding:
Text File  |  1995-11-20  |  866 b   |  34 lines  |  [TEXT/ttxt]
  1. // example script
  2.  
  3. print "\n*** This script flaunts some of the display and computational capabilities\n    of Prometheus.  ***\n\n\n"
  4.  
  5. print ("[[[[a b] [c d]] pi\\4352] [[f (g+k,h)] 7]]" nl)
  6. print [[[[a b] [c d]] pi\4352] [[f (g+k,h)] 7]]
  7. pause
  8. print ("inv [a_q^b c\\d e+f]" nl)
  9. print inv [a_q^b c\d e+f]
  10. pause
  11. print ("(a,b)^c" nl)
  12. print ((a,b)^c)
  13. pause
  14. print ("(a and b) or (a and ~b)" nl)
  15. print ((a and b) or (a and ~b))
  16. pause
  17. print ("3^5000" nl)
  18. print (3^5000)
  19. pause
  20. print ("1000!" nl)
  21. print 1000!
  22. pause
  23. print ("fib 6000" nl)
  24. print fib 6000
  25. pause
  26. print ("((a imp b) and (b imp c)) imp (a imp c)" nl)
  27. print (((a imp b) and (b imp c)) imp (a imp c))
  28. pause
  29. print ("adj trans [[a b c] [d e f] [h j k]]" nl)
  30. print adj trans [[a b c] [d e f] [h j k]]
  31. pause
  32. print ("inv [[a b c d] [e f g h] [j k l p] [q w z x]]" nl)
  33. print inv [[a b c d] [e f g h] [j k l p] [q w z x]]
  34.