トップページ⇒tech
1001コメント294KB

七行プログラミング part5

■ このスレッドは過去ログ倉庫に格納されています
0001デフォルトの名無しさん2006/03/16(木) 09:02:39
7行×79文字なら言語は問いません。
過去作品は、もしかしたら>>2-20あたりに。

前スレ
http://pc8.2ch.net/test/read.cgi/tech/1051703369/
part 3
http://pc2.2ch.net/tech/kako/1033/10331/1033143528.html
part 2
http://pc3.2ch.net/tech/kako/1018/10188/1018840143.html
part 1
http://pc.2ch.net/tech/kako/984/984182993.html
0237デフォルトの名無しさん2007/01/19(金) 10:43:21
>>236
石は……？
0238デフォルトの名無しさん2007/01/19(金) 11:34:14
適当なバイナリ作って逆汗
0239デフォルトの名無しさん2007/01/19(金) 16:33:39
>>236
アセンブラのソースコードでも読めば。
0240デフォルトの名無しさん2007/01/22(月) 21:26:35
>>234
A+B Problemからわからんorz
0241デフォルトの名無しさん2007/01/23(火) 19:04:29
>>240
問題のヒントに答えが書いてありますがな
02422402007/01/23(火) 19:43:36
>>241
さすがに答えはわかるｗそうじゃなくて、どうやって短く書いてんのかがさっぱりわからんってこと。
0243デフォルトの名無しさん2007/01/23(火) 19:52:47
>>242
参考程度に昔自分が書いてたコード
main(n){gets(&n);putchar(n%85+5);}
これはAとBの合計が10未満で、
入力の1Byte目がA,2byte目が空白,3byte目がB,4byte目が改行|EOFのときだけ動く。
今はテストケースが改善されて10以上もあるから通らないけどな。
0244デフォルトの名無しさん2007/01/24(水) 19:14:12
C#でブロックソート書いてみた。

using System;using System.Collections.Generic;namespace BWT{public static
class BlockSort{public static int Sort(ref byte[]data){int l=data.Length,i=1,j
;byte[][]t=new byte[l][];t[0]=data;for(;i<l;i++){t[i]=new byte[l];for(j=1;j<l;
j++){t[i][j]=t[i-1][j-1];}t[i][0]=t[i-1][l-1];}Array.Sort<byte[]>(t,new Comp()
);i=Array.IndexOf<byte[]>(t,data);for(j=0;j<l;j++){data[j]=t[j][l-1];}return i
;}}class Comp:IComparer<byte[]>{public int Compare(byte[]x,byte[]y){int r=0,l=
x.Length,i=0;for(;i<l;i++){r=(int)(x[i]-y[i]);if(r!=0)i+=l;}return r;}}}

ジャグ配列のソートを自前で実装するのは行数的に厳しいです orz
修行が足りません。
02452442007/01/24(水) 19:41:10
同じくソート解除

using System;using System.Collections.Generic;namespace DBWT{struct DE{public
DE(int i,byte d){Ind=i;Data = d;}public int Ind;public byte Data;}public
static class DeBlockSort{public static void Restoration(int ind,ref byte[]data
){int i,l=data.Length;DE[] de=new DE[l];for(i=0;i<l;i++){de[i]=new DE(i,data[i
]);}Array.Sort<DE>(de,new Comp());for(i=0;i<l;i++){data[i]=de[ind].Data;ind=
de[ind].Ind;}}}class Comp:IComparer<DE>{public int Compare(DE x,DE y){if(x
.Data != y.Data){return(int)(x.Data-y.Data);}else{return x.Ind-y.Ind;}}}}


やっぱりまだまだです orz
0246デフォルトの名無しさん2007/01/24(水) 20:24:34
perl -e "for(;;){print eval<STDIN>}"

インタラクティブパールできたよー
0247デフォルトの名無しさん2007/01/24(水) 20:31:50
引数何も無しでおｋだから、さ
0248デフォルトの名無しさん2007/01/24(水) 21:10:17
perl -pe '$_=eval$_'
これで十分だろと
0249デフォルトの名無しさん2007/01/24(水) 21:12:09
それは長すぎ。
perl -pe "$_=eval($_)"
で十分。
02502492007/01/24(水) 21:13:27
被った上に()の分負けてるー
orz
0251デフォルトの名無しさん2007/01/25(木) 02:49:12
perl -pe 'eval$_'

でいいんじゃない？
0252デフォルトの名無しさん2007/01/25(木) 11:45:00
これって標準入力を評価して標準出力に出力するってこと？
具体的にどういう使い方があるの？
0253デフォルトの名無しさん2007/01/25(木) 13:43:07
irb のように使う？
0254デフォルトの名無しさん2007/01/25(木) 23:44:26
電卓がわりとかじゃね？
0255デフォルトの名無しさん2007/01/26(金) 00:44:33
あなたの実家に腐ったイカを送りましたよ
0256デフォルトの名無しさん2007/01/26(金) 19:59:39
ある変数が マイナスだったら-1、プラスだったら1 に変換するCの式
if( a<0 ){
　a=-1;
}else if( a>0 ){
　a=1;
}else{
　a=0;
}
を、なんか格好よく書くには どんな本を読んで勉強するべきでしょうか？
0257デフォルトの名無しさん2007/01/26(金) 20:12:38
>>256
(a>0)-(a<0)
(a>=0)-(a<=0)
(a>>31)|((unsigned)-x>>31) (算術シフト前提)
0258デフォルトの名無しさん2007/01/26(金) 20:19:16
まず中1の数学の教科書だと思う。
a = a ? -1 * ( a / a ) : a;
0259デフォルトの名無しさん2007/01/26(金) 20:22:10
あ、ちがった。ゴメン。
a = a > 0 ? 1 : ( a < 0 ? -1 : 0 );
とか。
02602562007/01/26(金) 21:08:24
>>258
ヒントありがとう

a = (a>0)-(a<0);
までがんばれたっぽい。
0261デフォルトの名無しさん2007/01/27(土) 00:10:37
>>260 >>257の一番上
0262デフォルトの名無しさん2007/01/27(土) 01:55:23
もうすこし短くならない？
0263デフォルトの名無しさん2007/01/27(土) 01:56:35
そういう関数があったと思ったが・・・
0264デフォルトの名無しさん2007/01/27(土) 01:58:51
これ以上はむりじゃね？
0265デフォルトの名無しさん2007/01/27(土) 06:43:02
>>179の心得に従ってみた
a=a>0?1:-!!a
0266デフォルトの名無しさん2007/01/27(土) 10:13:35
>>183に従え
0267デフォルトの名無しさん2007/01/27(土) 14:25:48
>>265
ｽﾊﾟｼｰﾊﾞ
0268デフォルトの名無しさん2007/01/27(土) 16:11:59
>>265
:-!!
監禁されてガムテープで口縛られてるみたいだぞ
0269デフォルトの名無しさん2007/01/27(土) 16:43:12
a=a>0||-!!a;

↑ってどう？
0270デフォルトの名無しさん2007/01/27(土) 17:35:56
a=５のときどうなる？
0271デフォルトの名無しさん2007/01/27(土) 17:44:36
>>269
正しく動かない。
main(){
int a = -5;
a=a>0||-!!a;
assert(a==-1);
return 0;
}
0272デフォルトの名無しさん2007/01/27(土) 17:54:52
あ、そっか0か1にしかなんねーじゃん
0273デフォルトの名無しさん2007/01/27(土) 18:04:00
まだそんなこと言ってるの？
アホが1匹まじってますよ〜
0274デフォルトの名無しさん2007/01/27(土) 18:09:37
短い順

a=a>0?1:-!!a; //13
a=(a>0)-(a<0); //14
a=a>=0+(a>0)-1; //15
a=(a>=0)-(a<=0); //16
a=a>0?1:a<0?-1:0; //17
0275デフォルトの名無しさん2007/01/27(土) 18:11:14
>>274
3つ目はカッコないとだめだろ
a=(a>=0)+(a>0)-1; //17
0276デフォルトの名無しさん2007/01/27(土) 18:13:46
a>0が真のとき値は必ず-1になるんですか？
0277デフォルトの名無しさん2007/01/27(土) 18:16:09
間違えた
1desu
0278デフォルトの名無しさん2007/01/27(土) 21:01:51
環境によるんじゃないかなぁ、実のところ。
0279デフォルトの名無しさん2007/01/27(土) 23:27:29
今までの作品見てて思ったんだが、音物ってまだでてないね。
やっぱりヘッダだけでもかなり文字数食うのかな。
0280デフォルトの名無しさん2007/01/27(土) 23:37:20
>>279
1行食うからな…

でもwindows.hだけでbeep音は鳴らせるよな？
0281デフォルトの名無しさん2007/01/28(日) 00:09:18
10 BEEP
0282デフォルトの名無しさん2007/01/28(日) 00:25:02
>>279
昔のMSXとかBASIC見たいにMML鳴らせればねえ
0283デフォルトの名無しさん2007/01/28(日) 00:58:37
10 PLAY ALLOC 0: PLAY "CDEFG"
0284デフォルトの名無しさん2007/01/28(日) 02:23:05
cygwinとかbsd系でdsp使える環境
#include <sys/ioctl.h>
#include <fcntl.h>
int main(void){int rfd,dfd;char buf[1024];rfd=open("/dev/random",O_RDONLY);dfd=
open("/dev/dsp",O_WRONLY);while(1){read(rfd,buf,1024);write(dfd,buf,1024);}}

音なるよ
0285デフォルトの名無しさん2007/01/28(日) 02:42:59
それで4行なら7行で方形波生成+メロディ位いけるんじゃないか?
0286デフォルトの名無しさん2007/01/28(日) 02:48:27
>>284
read, write未定義って言われる・・・
0287デフォルトの名無しさん2007/01/28(日) 02:50:37
cygwinいれんのﾏﾝﾄﾞｸｾ
会社行ったらやってみよ
0288デフォルトの名無しさん2007/01/28(日) 02:51:01
#include <unistd.h>
か、
すげーーーーー音なった!!
0289デフォルトの名無しさん2007/01/28(日) 02:52:09
ちなみに、cygwinです。
0290デフォルトの名無しさん2007/01/28(日) 02:54:11
ちなみにどんな音がなるんだ？
0291デフォルトの名無しさん2007/01/28(日) 02:56:16
いや、ノイズだよ。
ザーって。
0292デフォルトの名無しさん2007/01/28(日) 02:56:56
/dev/random辺りから察して砂嵐だろう
0293デフォルトの名無しさん2007/01/28(日) 02:57:52
ボリュームに気をつけたほうがいい。いつもので行ったら死にそうになった。
0294デフォルトの名無しさん2007/01/28(日) 02:58:00
なんだ
ランダムだからどんなんかな〜と思ったけど、一音そんなに短いのか
02952842007/01/28(日) 02:58:13
>>288 thx
>>290 /dev/randomから読み取ってdspに直書きしてるだけだから>>291です
単一の音色のソフトシンセくらいなら作れる可能性があるね7行で
0296デフォルトの名無しさん2007/01/28(日) 02:59:21
/dev/dspってすげーな。

> cat /cygdrive/c/WINDOWS/Media/tada.wav > /dev/dsp

普通にwav鳴らせるんだ・・・
0297デフォルトの名無しさん2007/01/28(日) 03:00:55
こんな時間に人が沸いてきた方が驚きなんだけど。仕事中か？
0298デフォルトの名無しさん2007/01/28(日) 03:00:59
ああ、>>ちなみにcygwinのコマンドラインで
cat /dev/random > /dev/dsp
などとしても音なるよ
同じことです
0299デフォルトの名無しさん2007/01/28(日) 03:03:29
>>296
んだんだ
cygwinのdspさんはwaveファイルも使えるんだ

あとioctl()とか使ってサンプリングレートとかチャンネル数とか変えれるから、
ちょっと気張ればネット越しに音鳴らすサウンドサーバが出来る
mixingも自力で頑張ればウハウハ

コード自体はfreebsdでも動くから、bsd機をpxebootで起動させればHDDいらずで(ry
0300デフォルトの名無しさん2007/01/28(日) 03:36:23
#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,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,1\
84,2,523,184,2,493,195,4,440,220,2,391,220,2,369,293,6,391,293,2,391,195,8};vo\
id b(int x,int y, int z){if(y){for(int i=0;i<z/50;++i){Beep(x,25);Beep(y,25);}}
else{Beep(x,z);}Sleep(0);}int WINAPI WinMain(HINSTANCE,HINSTANCE,LPSTR,int){fo\
r(int i=0;i<sizeof(d);i+=3)b(d[i],d[i+1],d[i+2]*100);return 0;}
ノートが周波数そのままなので、七行超えてしまた。Beep()で音が鳴るPCでどうぞ。
Bio_100%の蟹味噌のインスパイアです。
0301デフォルトの名無しさん2007/01/28(日) 03:53:05
>>300
すげー、ピコピコなってるよ・・・

かに味噌なつかしす( ´ー｀)

03023002007/01/28(日) 04:30:09
#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,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,1\
84,2,523,184,2,493,195,4,440,220,2,391,220,2,369,293,6,391,293,2,391,195,8};vo\
id b(int x,int y, int z){for(int i=0;i<z/50;++i){Beep(x,25);Beep(y,25);}}int W\
INAPI WinMain(HINSTANCE,HINSTANCE,LPSTR,int){for(int i=0;i<sizeof(d)/sizeof(in\
t);i+=3)b(d[i],d[i+1],d[i+2]*100);return 0;}
酷いバグを直して19バイト削減。曲データ抜きなら4行だから、まぁアリってことにしてくださいm(__)m
03033002007/01/28(日) 04:53:31
あ、横が80文字になってるし。WinMainのintは省略できるし、b()なんて
関数化する必要ないし。漏れｱﾎｽ、回線切って首吊ってきます
0304デフォルトの名無しさん2007/01/28(日) 09:21:18
>>300の真似をしてみました。
VC8以外でコンパイルできるかは不明なり。
#include <windows.h>
char a[]="949=>9>>=;9848;>>=969444949=>9>>=;98468946899===;98989;<= ;;;;98643"
"134445454545656767878989:9:;<=>",b[]="94942929999;4;468222246894942929999;46"
"894449991335566116611; 113344 4445454;;;9998886664441111111",c[]="888888822"
"2288444444448448888888222288888422844@4444444444448844444444844@@@@422422422"
"4224224224444";int x[99],i,j=32;main(){float s=110;while(j<99)x[j++]=s*=1.05\
95;for(j=0;a[i];++i,j=0)while(j++<c[i]-48)Beep(x[a[i]],30),Beep(x[b[i]],30);}
0305デフォルトの名無しさん2007/01/28(日) 09:31:50
げ、スペースが一箇所詰まってしまた。

#include <windows.h>
char a[]="949=>9>>=;9848;>>=969444949=>9>>=;98468946899===;98989;<= ;;;;98643"
"134445454545656767878989:9:;<=>",b[]="94942929999;4;468222246894942929999;46"
"894449991335566116611; 113344  4445454;;;9998886664441111111",c[]="888888822"
"2288444444448448888888222288888422844@4444444444448844444444844@@@@422422422"
"4224224224444";int x[99],i,j=32;main(){float s=110;while(j<99)x[j++]=s*=1.05\
95;for(j=0;a[i];++i,j=0)while(j++<c[i]-48)Beep(x[a[i]],30),Beep(x[b[i]],30);}

これでちゃんと鳴る……といいな。
0306デフォルトの名無しさん2007/01/28(日) 09:39:48
>>296
ワロス

知らんかった
0307デフォルトの名無しさん2007/01/28(日) 09:57:20
>>305
鳴ったよー。gcc cygwin で確認
03082792007/01/28(日) 10:24:12
言った本人が何もしないのもあれなので作ってみたが、
レベル高すぎて投下する気なくす…orz
0309デフォルトの名無しさん2007/01/28(日) 10:38:30
>>305
すげーｗｗ
なんかめちゃくちゃなつかしい
0310デフォルトの名無しさん2007/01/28(日) 11:42:10
>>305
bcc5.5だと
1.05\
95;
の部分がエラーになったんだけど、直したら聞けました。つーかすげーこれｗｗ
0311デフォルトの名無しさん2007/01/28(日) 12:04:42
#include <unistd.h>
#include <fcntl.h>
char a[]="949=>9>>=;9848;>>=969444949=>9>>=;98468946899===;98989;<= ;;;;98643"
"134445454545656767878989:9:;<=>",b[]="94942929999;4;468222246894942929999;46"
"894449991335566116611; 113344  4445454;;;9998886664441111111",c[]="888888822"
"2288444444448448888888222288888422844@4444444444448844444444844@@@@422422422"
"4224224224444";int x[99],d,i,j=32,k=8000,l=8;m(a,b,s){char r[4096];s*=2;a=k/a
;b=k/b;for(j=s;j--;)r[j]=(!(j%a)+!(j%b))*32;write(d,r,s);}main(){float s=1\
10;while(j<99) x[j++]=s*=1.0595;d=open("/dev/dsp",2);for(i=0;a[i];m(x[a\[i]],\
x[b[i]],30*c[i]-48),++i);}

>>305
がんばったけど、7行に出来ない(orz
とりあえず音はなるけど、和音とかしらんので鳴るだけでいいと思ってる　（´・ω・`　ｽ
0312デフォルトの名無しさん2007/01/28(日) 12:12:40
>>311
#include <unistd.h>
#include <fcntl.h>
char a[]="949=>9>>=;9848;>>=969444949=>9>>=;98468946899===;98989;<= ;;;;98643"
"134445454545656767878989:9:;<=>",b[]="94942929999;4;468222246894942929999;46"
"894449991335566116611; 113344  4445454;;;9998886664441111111",c[]="888888822"
"2288444444448448888888222288888422844@4444444444448844444444844@@@@422422422"
"4224224224444";int x[99],d,i,j=32,k=8000,l=8;m(a,b,s){char r[4096];s*=2;a=k/a
;b=k/b;for(j=s;j--;)r[j]=(!(j%a)+!(j%b))*32;write(d,r,s);}main(){float s=110;
while(j<99) x[j++]=s*=1.0595;d=open("/dev/dsp",2);for(i=0;a[i];m(x[a[i]],x[b[\
i]],30*c[i]-48),++i);}

こうだな
0313デフォルトの名無しさん2007/01/28(日) 12:18:47
#include <unistd.h>
#include <fcntl.h>
char a[]="949=>9>>=;9848;>>=969444949=>9>>=;98468946899===;98989;<= ;;;;98643"
"134445454545656767878989:9:;<=>",b[]="94942929999;4;468222246894942929999;46"
"894449991335566116611; 113344  4445454;;;9998886664441111111",c[]="888888822"
"2288444444448448888888222288888422844@4444444444448844444444844@@@@422422422"
"4224224224444";int x[99],d,i,j=32,k=8000,l=8;m(a,b,s){char r[4096];for(j=s;j\
--;)r[j]=(!(j%a)+!(j%b))*32;write(d,r,s);}main(){float s=110;while(j<99) x[j+\
+]=k/(s*=1.0595);d=open("/dev/dsp",2);for(i=0;a[i];m(x[a[i]],x[b[i]],60*c[i]-
96),++i);}

>>312もうちょっと
後はデータをファイルに持たせるとか…か
0314デフォルトの名無しさん2007/01/28(日) 12:21:34
>>311-313
dsp1.cpp:7: error: expected constructor, destructor, or type conversion before '(' token
dsp1.cpp:7: error: expected `,' or `;' before '(' token
dsp1.cpp: In function `int main()':
dsp1.cpp:7: warning: converting to `int' from `float'
dsp1.cpp:10: error: `m' undeclared (first use this function)
dsp1.cpp:10: error: (Each undeclared identifier is reported only once for each function it appears in.)
dsp1.cpp:10:11: warning: no newline at end of file

って、出る('A`)
0315デフォルトの名無しさん2007/01/28(日) 12:25:41
m(a,b,s){
多分、この書き方なんですけど、これってCでいいんですか？
0316デフォルトの名無しさん2007/01/28(日) 12:31:09
>>284に戻るけど…

using System;using System.IO;class Program{static void Main(string[]args){try{
int i=int.Parse(args[1]);byte[]h=new byte[]{82,73,70,70,36,0,(byte)i,0,87,65, 
86,69,102,109,116,32,16,0,0,0,1,0,1,0,68,172,0,0,68,172,0,0,1,0,8,0,100,97,116
,97,0,0,(byte)i,0};using(FileStream f=new FileStream(args[0],FileMode.Create))
{f.Write(h,0,44);h=new byte[i*65536];Random r=new Random(DateTime.Now.Second);
r.NextBytes(h);f.Write(h,0,i*65536);}}catch{Console.Write("Error");}}}

使い方:
hoge.exe savepath length
長さは(0〜255)*65536Bでつ。
0317デフォルトの名無しさん2007/01/28(日) 12:56:06
>>302
require"base64";require'zlib';require"Win32API";$o=Win32API.new("kernel32","B\
eep",%w(i i),'v');def b(x,y,z)(0...z/50).map{$o.call x,25;$o.call y,25}end;b=
"eJybzHSYgYnhMdMOIMnPvISBBci+A2RPBpN5TN+AIhA2RPwt42GgiBZYfR6Y\nnMwE0uUNZnODSY\
iaHYwg9e1gMpMRZA6EDREHqQGxD4PVfIOqYWLwZFwCJiEm\n08NthYyqjGxAtiojSOQwAwcDAE8gP\
SA=\n";d=Zlib::Inflate.inflate(Base64.decode64(b)).unpack("S*");(0...d.size/3
).map{|i|i*=3;b d[i],d[i+1],d[i+2]*100}

ワーイ。rubyで、6行できたよー。
0318デフォルトの名無しさん2007/01/28(日) 13:14:40
>>314
C++じゃなくてCで

>>315
暗黙に int とみなされる
0319デフォルトの名無しさん2007/01/28(日) 13:38:54
>>318
なったよｗ
0320デフォルトの名無しさん2007/01/28(日) 13:41:13
>>313
データをファイルに持たせるのはルール違反
0321デフォルトの名無しさん2007/01/28(日) 13:54:52
beep ついてねーよヽ(`Д´)ﾉｳﾜｧｧﾝ
ということで cygwin 専用 beep エミュ。
音程が合わない時は BASE_FREQを適当に調整してください。

#include <windows.h>
#include <stdio.h>
#define BASE_FREQ8000
WINAPI BOOL Beep(DWORD freq, DWORD time){int t,tf,dt;static FILE *fp=0;if(!fp)
fp=fopen("/dev/dsp","wb");if(!freq||freq>BASE_FREQ/2)tf=0x7fffffff;else tf=
BASE_FREQ/2/freq;for(t=0;t<time*BASE_FREQ/1000;t++){dt=((t/tf))%2?127:0;fwrite
(&dt,1,1,fp);}fflush(fp);return TRUE;}
03223212007/01/28(日) 14:31:09
無駄が多すぎた。
#include <windows.h>
#include <stdio.h>
FILE *p;WINAPI BOOL Beep(DWORD f, DWORD m){int B=4000,t=0,g,d;p=p?p:fopen("/de"
"v/dsp","wb");g=!f||f>B?(1<<31)-1:B/f;for(;t<m*B/500;t++){d=t/g%2?127:0;fwrite(
&d,1,1,p);}fflush(p);return TRUE;}
0323デフォルトの名無しさん2007/01/28(日) 16:23:05
Cの&& ||ってショートサーキット評価だっけ？
0324デフォルトの名無しさん2007/01/28(日) 16:26:07
そうだぜ
0325デフォルトの名無しさん2007/01/28(日) 16:32:51
ｔｈｘ
もう少し縮められそうだ
03263052007/01/28(日) 16:54:21
おー、なんか皆がんばっとる！('ω`*)
徹夜して作った甲斐がありました！
0327デフォルトの名無しさん2007/01/28(日) 17:24:11
標準入力からMMLを読んでビープで再生する
A-G: 音符; R: 休符 (数値を後置して長さ, ドットを後置して付点)
Tn: Tempo; Ln: Length
On: Octave (n=0-7); >: Octave+; <: Octave-

#include <stdio.h>
#include <windows.h>
int r,c,d,n,j,a,o=4,l=4,t=120,f[84],g[]={0,2,3,5,7,8,10};w(a){ungetc(a,stdin);
}y(){return getchar();}float s=27.5;q(int*p){for(r=0;'0'<=(d=y())&&d<='9';)r=r
*10+d-'0';w(d);r?*p=r:0;}main(){for(;j<84;j++,s*=1.0595)f[j]=s;while((c=y())!=
EOF)c+=c<'a'||'z'<c?0:'A'-'a','A'<=c&&c<'H'||c=='R'?c-'R'?a=g[c-'A']+12*o,(d=y
())=='+'||d=='#'?a+=a!=83:d=='-'?a-=!!a:w(d):0,n=l,q(&n),j=120000*((d=y())-'.'
?w(d),2:3)/t/n,c-'R'?Beep(f[a],j):Sleep(j):c=='L'?q(&l):c=='O'?q(&o),o=o>7?7:o
:c=='T'?q(&t):c=='>'?o+=o!=7:c=='<'?o-=!!o:0;}//9行47桁

俺の力ではこれ以上短くできない…orz
0328デフォルトの名無しさん2007/01/28(日) 17:35:05
あら。一行78文字になってた

#include <stdio.h>
#include <windows.h>
int r,c,d,n,j,a,o=4,l=4,t=120,f[84],g[]={0,2,3,5,7,8,10};w(a){ungetc(a,stdin);}
y(){return getchar();}float s=27.5;q(int*p){for(r=0;'0'<=(d=y())&&d<='9';)r=r*\
10+d-'0';w(d);r?*p=r:0;}main(){for(;j<84;j++,s*=1.0595)f[j]=s;while((c=y())!=E\
OF)c+=c<'a'||'z'<c?0:'A'-'a','A'<=c&&c<'H'||c=='R'?c-'R'?a=g[c-'A']+12*o,(d=y()
)=='+'||d=='#'?a+=a!=83:d=='-'?a-=!!a:w(d):0,n=l,q(&n),j=120000*((d=y())-'.'?w(
d),2:3)/t/n,c-'R'?Beep(f[a],j):Sleep(j):c=='L'?q(&l):c=='O'?q(&o),o=o>7?7:o:c==
'T'?q(&t):c=='>'?o+=o!=7:c=='<'?o-=!!o:0;}
0329デフォルトの名無しさん2007/01/28(日) 17:56:04
ソース解読するための
整形ツールって無いですか？
0330デフォルトの名無しさん2007/01/28(日) 17:56:22
時代が20年くらい巻き戻ったな、このスレ
0331デフォルトの名無しさん2007/01/28(日) 17:56:33
GNU Indentは？
0332デフォルトの名無しさん2007/01/28(日) 18:31:01
>>331
いけました。ｻﾝｸｽ
0333デフォルトの名無しさん2007/01/28(日) 21:03:16
>>329
過去スレに7行のもあった希ガス
0334デフォルトの名無しさん2007/01/28(日) 22:42:27
'A' とかは数字の即値で書いたほうが短そう
0335デフォルトの名無しさん2007/01/28(日) 22:48:24
>>284
BSD系って君が言ったから

OSXは、/dev/dspねぇ。。
0336デフォルトの名無しさん2007/01/28(日) 22:50:04
>>334
上でも出てるがそりゃ邪道だ
■ このスレッドは過去ログ倉庫に格納されています