Maze solving: Difference between revisions
Content added Content deleted
m (→{{header|Phix}}: added syntax colouring, marked p2js compatible) |
(Emacs Lisp: Avoid non-portable shebang) |
||
| Line 1,836: | Line 1,836: | ||
=={{header|Emacs Lisp}}== |
=={{header|Emacs Lisp}}== |
||
file: maze.el |
|||
{{libheader|cl-lib}} |
|||
<lang lisp>(require 'cl-lib) |
<lang lisp>(require 'cl-lib) |
||
| Line 2,029: | Line 2,031: | ||
(print-maze maze solution))) |
(print-maze maze solution))) |
||
( |
(solve "maze.txt")</lang> |
||
</lang> |
|||
file: maze-solve |
|||
<lang lisp>#!/usr/bin/env emacs -script |
|||
;; -*- lexical-binding: t -*- |
|||
;;> Solve mazes generated by maze-generator. |
|||
;;> Example: ./maze-solve maze.txt |
|||
(add-to-list 'load-path (file-name-directory load-file-name)) |
|||
(require 'maze) |
|||
(solve (elt command-line-args-left 0)) |
|||
</lang> |
|||
{{out}} |
{{out}} |
||
<pre style="height:35ex;overflow:scroll;">+ +---+---+---+---+---+---+---+---+---+ |
<pre style="height:35ex;overflow:scroll;">+ +---+---+---+---+---+---+---+---+---+ |
||