Yakov Fainによる2007年の予測。
視点の違いか、かなり、つまらない未来予測である。 せっかくだから、外れてもいいから面白い予測をすればいいのに。
Common Lispのリーダーマクロを使って、Rubyにしか見えないLispプログラムを書く、 という話。
#@suck-lisp
defun fib (n)
if (< n 0)
(error "oops")
elif (= n 0)
0
elif (= n 1)
1
else
let
x <- (fib (- n 1))
y <- (fib (- n 2))
in
(+ x y)
end
end
end
defun f (lst)
(print-lst lst)
end
defun print-lst (lst)
when lst
let
x <- (car lst)
xs <- (cdr lst)
in
(print x)
(print-lst xs)
end
end
end
defun walk (dir)
let
files <- nil
dirs <- (cl-fad:list-directory dir)
in
(dolist (d dirs)
if (cl-fad:directory-exists-p d)
(setf files (append files (walk d)))
else
(push d files)
end)
files
end
end
defun print-file-list ()
(loop for e in (walk "./") do (format t "~A~&" e))
end
まあ、確かにリーダーマクロを使えばなんでもありだよね。 が、それを「良いこと」に含めるのに非常に抵抗があるのは、 私だけだろうか。