七行プログラミング

日々

音系をお題に一つ、という流れだったので初参戦してみた。自分の七行化スキルの低さに失望。もう寝る。

#include <windows.h>
int d[]={659,195,2,739,184,2,783,164,4,739,220,2,659,220,2,622,246,4,659,220,2
,739,220,2,493,195,4,554,184,2,622,184,2,659,164,4,587,184,2,523,184,2,493,195
,4,440,220,2,391,220,2,361,246,4,391,220,2,440,220,2,493,195,2,440,195,2,391,
246,2,361,246,2,329,164,2,329,184,2,659,195,2,739,184,2,783,164,4,739,220,2,6\
59,220,2,622,246,4,659,220,2,739,220,2,493,195,4,554,184,2,622,184,2,659,164,
4,587,184,2,523,184,2,493,195,4,440,220,2,391,220,2,369,293,6,391,293,2,391,1\
95,8};WINAPI WinMain(HINSTANCE,HINSTANCE,LPSTR,int){for(int i=0;i<sizeof(d)/s\
izeof(int);i+=3)for(int j=0;j<d[i+2]*2;++j){Beep(d[i],25);Beep(d[i+1],25);}re\
turn 0;}

# 楽譜を探してデータに起こすのに一時間くらいかかったのは内緒