home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / MISC / REC.ZIP / MAZE.REC < prev    next >
Encoding:
INI File  |  1986-12-01  |  2.0 KB  |  54 lines
  1. [MAZE.REC]
  2. {{(''0 1 2 3 4x);)~
  3. (0x(1x(2x(3x(4x((@~J'('EzZ<(@njJ><0x](A);>)>' 'Ez{(' 'Ez(('/'(Fz;ZzqL)qL1x]L;Y);AB:);)#(' '0x>;)}JZD1x[z<@I>0x[')'I;
  4. @~J'('EzZ<(@njJ><0x](A);>)>' 'EzZ<(@njJ><1x](A);>)>' 'Ez{(Z<(' 'Ez0x];J0x];>)>' ('Ez{(')'EzZ<(' 'Ez;J;>)>4x];)#(')'3x>;)};)#(2x<;)}JZDz<3x[5x(6x({(''5 6x);)~((@~JZ<(@njJ><5x](A);>)>Z<(' 'Ez;J;>)>6x]JZD'('I5x[' 'I1x[' 'I2x[4x[z<@I>0x[@M(J'$'EzJZD;Z;)>z<6x[:;)Z>@~2x:;)};
  5. @~JZD'$'I;
  6. Z;)@~5x:;)}M
  7. {(Z<('A''Z'Mz;J'a''z'Mz;J'0''9'Mz;>)>;)a
  8. (@a(Z<@a>:J>;);)n
  9. ('('EzZ<(@n(Z<' 'Ez@n>:J>;);J;>)>')'Ez;)l
  10. (@n' 'Ez@l;)p
  11. (JZD0x[(J9x](A)JZD;JZD' 'I;);)I
  12. (''0 8 9x);)~
  13. (0x(8x(9x((@~J26%EzJZD;
  14. @~JZ<('('EzZ<(@njJ><9x](A);>)>' 'EzZ<(@njJ><8x](A);>)>' ('Ez@p(Z<' 'Ez@p>:J>;)'))'EzjJ><0x](A);>)>JZD'Initial: 'I9x['; final: 'I8x[xtz<z<'('Iz<0x['/('I@M(J'$'EzJZD;Z;)>')'I1x(2x({(''1 2x);)~((@~JZ<(65(a;L)z')'FzjJ><1x](A);>)>2x]JZD1x[2573,I>z<2x[:;)JZ2573,IZ>@~2x:;)}xt>z<{(Jx|;)~(xRA;;)}x~>:
  15. @~J(A)JZDxQz<{(Jx|;)~(xRA;;)}x~>:
  16. @~JZD'not a maze'Ixt:
  17. Z;)@~3x:;)}~
  18. {((Jj':'UQD':'ED\64-(0=)%;0,25K^&L%;)
  19. ('.'U<(8a;xb;)Q|D>;Z'.'IJj:)
  20. '.'FJD(3a;xb;)Q|JZDI;) u
  21. (255='Not Found'I;) v
  22. (Zz(d' 'I:;)JZ;) b
  23. (w0%(f:;)w;) -
  24. (cmpx-n;) 0
  25. (128,26k;) 5
  26. (x+'
  27. All paths in a maze:
  28. (ni nf (na (na1 na2 ... nak) ... nz (nz1 ... nzj)))'TL;) Q
  29. ((B13%ED;;)J(10%FD:;)Z;) ~
  30. (13%Fz;26%F((2b);J6666,EA;zBj;)z;) |
  31. (|0|0|0|pLpGnpG6-mSpG8+n&S;) 3
  32. (x00x3;) `
  33. (mx0n&mx0nx3;) z
  34. (30$r128eqL26k20K0=L;DLL) y
  35. (('L/'FDZ<(' 'FjJ;;)QD>
  36. ((B;;)' 'ED;;);'';)mZ
  37. 188@0pG66-,127$Sx@
  38. 'uvb-05Q~|3`zy'I<z(BQD@s:;)>@i
  39. 33@0pG30$SnI
  40. <@u(A' 'EZD'CNVLIB  REC'I;;)JQD>&S
  41. @5,30$r15K(@vu\64+%':'|&11G|':'|TLqt_;LL;)
  42. 't Q 'm0''CLpLr32$SLZz;) x
  43. (Jj(' 'ED:;)(' 'U;Z;)QZI<(AB;'TTY:'I;)31$m
  44. ('TTY:'E4x`;xu130,33xz;)QZD>&pG8+0&SrS;) i
  45. (pG$r&\pG+127$r+S;) s
  46. (Z>zZ<(J@|J><z@~J;@y:Z26%I:)26%ELnL0,30$S;
  47. J('['ED']'FDJ<Z((2b)>JZD;QDlyw&FwJZD>;w:):Z;)
  48. >J<'[!]'FDBQD\pG+127$r+mJq32$rC
  49. mpGlyG-'w'$r'x'$r-
  50. (NLnLq'x'$rC&'x'$SnS;32$SnnS;)D::) w
  51. (@x<<@w>JZD>J'Next: '32$r!|TLxQ
  52. (A;{(Jx|;) ~ (xR;;)}x~;);)} %
  53. (@%@~xTxE;) }
  54.