home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / oper_sys / oasis / ossxmpls.lha / examples / ack.d < prev    next >
Encoding:
Text File  |  1992-03-25  |  224 b   |  14 lines
  1. class ack {
  2. method:
  3.     public      main ().
  4.     private     ack  (int M, N, ?V).
  5. }
  6.  
  7. ack {
  8.     main() |- ack(3,8,_).
  9.  
  10.     ack(0,N',N+1).
  11.     ack(M',0,V)  |- ack(M-1,1,V').
  12.     ack(M',N',V) |- ack(M,N-1,T'); ack(M-1,T,V').
  13. }
  14.