zonuexe · December 18, 2015 00:39 · zonuexe · Jun 3, 2013 · zonuexe · Jun 3, 2013
diff --git a/authors.markdown b/authors.markdown
diff --git a/entry.rb b/entry.rb
 # -*- mode: lisp-mode ; coding: utf-8; -*-
 (Class.new do
    (define_singleton_method :let, ->(*‌){‌})
    (let
         [(display = ->(ary){
            (puts \
             %(\n\(my-lisps . ) +
             %(\() +
             (ary.map(&->(‌‌‌){
                        ‌‌‌.to_s.gsub(%( ), %(\\ ))})
              .send(:join, %( )) + %(\)\))))}),
          (lisps =
           '(Arc
             Clojure
             Common\ Lisp
             Cyan
             Emacs\ Lisp
             ISLISP
             MAC\ LISP
             Matz\ Lisp
             Nsclisper
             Scheme
             TAO)
             '),
          (lisp–chooser = ->(‌){
             (loop do
                (let (‌‌= (‌.sample 3))) &&
                  ((‌‌.include? %(Matz\ Lisp).intern)?
                   (break (‌‌)):
                   (p (‌‌)))
                (next) end)}.
           (eval \
            (?%+?i+ (lisps)) ||
            (lisp–chooser)))]
     (display. (lisp–chooser))) end)
diff --git a/remarks.markdown b/remarks.markdown
	# -- mode: lisp-mode ; coding: utf-8; --
	(Class.new do
	(define_singleton_method :let, ->(*‌){‌})
	(let
	[(display = ->(ary){
	(puts \
	%(\n\(my-lisps . ) +
	%(\() +
	(ary.map(&->(‌‌‌){
	‌‌‌.to_s.gsub(%( ), %(\\ ))})
	.send(:join, %( )) + %(\)\))))}),
	(lisps =
	'(Arc
	Clojure
	Common\ Lisp
	Cyan
	Emacs\ Lisp
	ISLISP
	MAC\ LISP
	Matz\ Lisp
	Nsclisper
	Scheme
	TAO)
	'),
	(lisp–chooser = ->(‌){
	(loop do
	(let (‌‌= (‌.sample 3))) &&
	((‌‌.include? %(Matz\ Lisp).intern)?
	(break (‌‌)):
	(p (‌‌)))
	(next) end)}.
	(eval \
	(?%+?i+ (lisps)) \|\|
	(lisp–chooser)))]
	(display. (lisp–chooser))) end)