サンプル

初版2026年11月5日・改訂11月8日

吾輩は猫である

吾輩は猫である。

名前はまだ無い。

どこで生れたかとんと見当がつかぬ。

何でも薄暗いじめじめした所で

ニャーニャー

鳴いていた

ことだけは覚えている。

草枕

• 山道を登りながら、こう考えた。
  1. 智に働けば角が立つ。
  2. 情に棹差せば流される。
  3. 意地を通せば窮屈だ。
  4. とかくに人の世は住みにくい。

雪国

• 国境の長いトンネルを抜けると
  • 雪国であった。
    • 夜の底が
      • 白くなった。
    • 信号所に
      • 汽車が止まった。

蜘蛛の糸

池の中に咲いている蓮の花は、
	みんな玉のようにまっ白で、
	そのまん中にある金色の蕊からは、
		何とも云えない好い匂が、
			絶間なくあたりへ溢れて居ります。
極楽は丁度朝なのでございましょう。

よだかの星

お日さん、お日さん。どうぞ私をあなたの所へ連れてって下さい。灼けて死んでもかまいません。私のようなみにくいからだでも灼けるときには小さなひかりを出すでしょう。

(defun quicksort (list predicate &key (key #'identity))
	(if (null (rest list))
		(copy-list list)
		(let ((pivot-key (funcall key (nth (random (length list)) list))))
			(loop for element in list
				for element-key = (funcall key element)
				if (funcall predicate element-key pivot-key)
				collect element into before
				else if (funcall predicate pivot-key element-key)
				collect element into after
				else
				collect element into equivalent
				finally (return (nconc (quicksort before predicate :key key)
										equivalent
										(quicksort after predicate :key key)))))))