Hello, world?

• CodeIQ に出した「hello, world × 3」の解説・解題 - Codeへの愛とCuriosity

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

一応Gaucheで動きます。

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

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

元ネタ

• 数字を使わないで1+2をやってみる - (define -ayalog '())