(define -ayalog '())

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

Hello, world?

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

一応Gaucheで動きます。

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

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