七行プログラミング part5

七行プログラミング p ..

■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト

42:デフォルトの名無しさん
 06/04/09 00:19:28 
#include <windows.h> 
double sin();char b[99];long*h,w[]={65537,8000,8000,524289,20},d[]={b,99,0,0,0, 
1,0,0};WINAPI f(t,u,x,y,z){waveOutReset(h);waveOutWrite(h,d,32);}main(c,v)char 
**v;{if(c>1){for(c=99;c--;b[c]=sin(c*0.7854)*64);if((c=atoi(v[1]))>0){waveOutO\ 
pen(&h,-1,w,0,0,0);waveOutPrepareHeader(h,d,32);for(c=timeSetEvent(60000/c,1,f, 
timeBeginPeriod(1),1);!kbhit();Sleep(1));timeKillEvent(c);waveOutReset(h);wave\ 
OutUnprepareHeader(h,d,32);waveOutClose(h);}}} 
 
Win32用簡易メトロノーム。コマンドライン引数でBPMを指定。何かキーを押せば終了します。 
マルチメディアタイマーを利用しているのでwinmm.libとのリンクが必要。

43:デフォルトの名無しさん
 06/04/09 23:47:28 
#include <stdio.h> 
int a[81];s(n){int i=80,c[10];if(a[n])s(n+1);else if(n>80)for(;~i;i--)printf("\ 
%d%c",a[i],i%9?0:10);else{for(i=9;i;)c[i--]=0;for(i=8;i--;)c[a[n/9*9+i]]=c[a[n% 
9+i*9]]=c[a[n/27*27+n%9/3*3+i%3+i/3*9]]=1;for(i=1;i<=9;i++)c[i]||(a[n]=i,s(n+1) 
,a[n]=0);}}main(i){i=80;for(;~i;)scanf("%d",&a[i--]);s(0);} 
数独を解くプログラムのつもり。あと2行あるからなんかしたいけど何をしようか思いつかん。 
標準入力として↓みたいなファイルを食わせると答えを出す。 
0 0 6 0 0 0 0 0 1 
0 7 0 0 6 0 0 5 0 
8 0 0 1 0 3 2 0 0 
0 0 5 0 4 0 8 0 0 
0 4 0 7 0 2 0 9 0 
0 0 8 0 1 0 7 0 0 
0 0 1 2 0 5 0 0 3 
0 6 0 0 7 0 0 8 0 
2 0 0 0 0 0 4 0 0 
 
ぶっちゃけ七行やったこと殆どないんで無駄が多そう。 
ちなみにあほ再帰なんで表出が減るとあほみたいに遅くなります。 
将来は数々の人々みたいに立派な七行erになりたい。

次ページ