読者です 読者をやめる 読者になる 読者になる

(define -ayalog '())

括弧に魅せられて道を外した名前のないプログラマ

Hello, world?

そういえば、これを読んでから書こうってずっと思っててやってなかったの思い出した。

一応Gaucheで動きます。

(display
 (list->string
  (map integer->char
       `(,(*(*(+(*)(*)(*))(+(*)(*)(*)))(*(+(*)(*))(+(*)(*))(+(*)(*))))
	 ,(+(*(*(+(*)(*)(*)(*)(*))(+(*)(*)(*)(*)(*)))(+(*)(*)(*)(*)))(*))
	 ,(*(+(*)(*)(*))(+(*)(*)(*))(+(*)(*)(*))(+(*)(*))(+(*)(*)))
	 ,(*(+(*)(*)(*))(+(*)(*)(*))(+(*)(*)(*))(+(*)(*))(+(*)(*)))
	 ,(*(+(*)(*)(*))(+(*(+(*)(*)(*)(*))(*(+(*)(*)(*))(+(*)(*)(*))))(*)))
	 ,(*(+(*)(*))(+(*)(*))(+(*(+(*)(*))(+(*)(*)(*)(*)(*)))(*)))
	 ,(*(+(*)(*))(+(*)(*))(+(*)(*))(+(*)(*))(+(*)(*)))
	 ,(*(+(*)(*)(*)(*)(*)(*)(*))(+(*(+(*)(*)(*)(*))(+(*)(*)(*)(*)))(*)))
	 ,(*(+(*)(*)(*))(+(*(+(*)(*)(*)(*))(*(+(*)(*)(*))(+(*)(*)(*))))(*)))
	 ,(*(+(*)(*))(+(*)(*)(*))(+(*(+(*)(*))(+(*)(*)(*))(+(*)(*)(*)))(*)))
	 ,(*(+(*)(*)(*))(+(*)(*)(*))(+(*)(*)(*))(+(*)(*))(+(*)(*)))
	 ,(*(+(*)(*))(+(*)(*))(+(*)(*)(*)(*)(*))(+(*)(*)(*)(*)(*)))))))
;; Hello, world

というだけのネタでした。

広告を非表示にする