home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l217 / 2.ddi / REFEXAMP / FRNTCHAR.PRO < prev    next >
Encoding:
Text File  |  1990-03-26  |  311 b   |  13 lines
  1. %====================== frontchar/3           ===============================
  2. Goal: frontchar("TPROLOG",CH,REST)
  3. CH=T, REST=PROLOG
  4. 1 Solution
  5. Goal: frontchar("TPROLOG",'T',REST)
  6. REST=PROLOG
  7. 1 Solution
  8. Goal: frontchar("TPROLOG",'P',"ROLOG")
  9. False
  10. Goal: frontchar(X,'T',"PROLOG")
  11. X=TPROLOG
  12. 1 Solution
  13.