Maze generation: Difference between revisions
Content added Content deleted
m (→{{header|BASIC256}}: start generating the maze at a random position, not at (0, 0)) |
(Emacs Lisp: Avoid non-portable shebang) |
||
Line 3,088: | Line 3,088: | ||
=={{header|Emacs Lisp}}== |
=={{header|Emacs Lisp}}== |
||
{{libheader|cl-lib}} |
|||
file: maze.el |
|||
<lang lisp> |
|||
(require 'cl-lib) |
<lang lisp>(require 'cl-lib) |
||
(cl-defstruct maze rows cols data) |
(cl-defstruct maze rows cols data) |
||
Line 3,282: | Line 3,282: | ||
(print-maze maze solution))) |
(print-maze maze solution))) |
||
(generate 20 20)</lang> |
|||
(provide 'maze) |
|||
</lang> |
|||
file: maze-generate |
|||
<lang lisp> |
|||
#!/usr/bin/env emacs -script |
|||
;; -*- lexical-binding: t -*- |
|||
;;> Simple maze generator. |
|||
;;> Example: ./maze-generate 20 20 |
|||
(add-to-list 'load-path (file-name-directory load-file-name)) |
|||
(require 'cl-lib) |
|||
(require 'maze) |
|||
(generate (string-to-number (elt command-line-args-left 0)) |
|||
(string-to-number (elt command-line-args-left 1))) |
|||
</lang> |
|||
{{out}} |
{{out}} |