トップページ⇒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
0446デフォルトの名無しさん2007/07/04(水) 02:18:22
>>438ですが、
少しでも役に立つものがあれば…と思ったのですが、
7行の題材としてはあまり面白くなかったですかね。
頑張れば5行くらいで書けるでしょうし。

いい題材が浮かびません…。
0447デフォルトの名無しさん2007/07/04(水) 03:47:17
>>445
コメントのネストは伝統的にないことになってるはず。
>>446
5行で書く方法を思いつかない…orz

こんなコメントとか
/* printf("*/ \"\\"); */
Shift JISの2バイト目をきちんと処理できるように書くには7行じゃ足りない気がするんだけど…。

0448デフォルトの名無しさん2007/07/04(水) 23:04:50
>>447
ヒント：7行でありさえすればいい
0449デフォルトの名無しさん2007/07/05(木) 00:09:34
>>447
>/* printf("*/ \"\\"); */
これは、コメント削除処理した結果が
\"\\"); */
になればいいんですよね？

Shift JISの2バイト目をきちんと処理できるかどうかを検証する文字列って
どんなのなのでしょうか？
0450デフォルトの名無しさん2007/07/05(木) 08:38:24
>>449
> Shift JISの2バイト目をきちんと処理できるかどうかを検証する文字列って
ソ/* */
とか？
0451デフォルトの名無しさん2007/07/05(木) 08:43:43
ちょっと違うな。こういうのか？
printf("ソ");/* */
0452デフォルトの名無しさん2007/07/05(木) 10:04:12
こんなかんじで。
#include <stdio.h>
int main(int, char *[]) {
　　printf("表");/* ");/* */
　　return 0;
}

というか、別に入力文字コードはUTF-8限定でもいいと思うんだけど。
0453デフォルトの名無しさん2007/07/05(木) 11:18:18
（＾ω＾；） (*ノ *)ノ
0454デフォルトの名無しさん2007/07/05(木) 17:15:43
n869 にこんな例があるな。

m = n//**/o
+ p;

m = n + p;
0455デフォルトの名無しさん2007/07/05(木) 17:34:54
> \/* asdf */ みたいにエスケープされていたら、それはコメントにならない。

ダウト。\/ というシーケンスは規格では定義されていない。
0456デフォルトの名無しさん2007/07/05(木) 18:49:59
>>455は>>443=444並のあわてんぼさん。
0457デフォルトの名無しさん2007/07/06(金) 00:18:02
>>414のランレングス解凍、3行になったぞ。
#include<stdio.h>
d(FILE*q){int r,c;if(!q)return 6;while((r=fgetc(q))+1)for(c=fgetc(q);putchar
(c),--r;);fclose(q);return 0;}main(int c,char**a){return d(fopen(a[1],"rb"));}
0458デフォルトの名無しさん2007/07/06(金) 00:59:33
#include <stdio.h>
main(c,a)char**a;{int r;FILE*q=fopen(a[1],"rb");if(!q)return 6;while((r=getc(q)
)-EOF)for(c=getc(q);putchar(c),--r;);fclose(q);return 0;}

dをインライン展開してみた。
0459デフォルトの名無しさん2007/07/06(金) 01:01:58
言い出しっぺの>>438です。
EUCとSHIFT_JISならそれなりに処理してくれたようなのでアップします。
第一引数のファイルのコメントを除去して、標準出力に出力します。

ただし、SHIFT_JISで半角カナがあるとダメなのですが、
どうやって判別すればいいかが分かっていないので、ちょっと悩んでおります。

#include <stdio.h> /* uncomment.c */
e,m,t;main(c,v)char**v;{FILE*f=fopen(v[1],"r");for(;(c=fgetc(f))+1;m>2?m%=5:
putchar(c))e?e--:(m=c-10?c-39?c-34?c-47?c-42?c<128?c-92?m:m>2?m:e++,m:e++,m:
m-3?m:(t=fgetc(f),t-47?ungetc(t,f),m:5):m?m:(t=fgetc(f),t-47?t-42?ungetc(t,f
),m:3:4):m&5?m:!m*2:m>1?m:!m:m%4);return fclose(f),0;}

0460デフォルトの名無しさん2007/07/06(金) 01:16:35
>>457
乙ｗ
0461デフォルトの名無しさん2007/07/06(金) 01:17:21
久々にレスが多いなｗ
0462デフォルトの名無しさん2007/07/06(金) 01:48:49
>>459
最初からワイド文字では駄目ですか？
0463デフォルトの名無しさん2007/07/06(金) 02:00:33
最初からワイド文字とはどういう意味ですか？
0464デフォルトの名無しさん2007/07/06(金) 02:18:04
入出力は全部wchar_tで行って、エンコーディングには関知しないという意味です。
0465デフォルトの名無しさん2007/07/06(金) 09:42:29
2進数のビットの左右の反転ってどのくらい短く書ける？
unsigned int a を左右反転させて b にっ ka
0466デフォルトの名無しさん2007/07/06(金) 10:57:35
>>465
関数だけどやってみた。b = R(a);

typedef unsigned U;U R(U a){int c=0,s,t;U n,h,l;for(n=~0;n>>=1;c++);
for(s=c;s>c>>1;s--){h=a&1<<s;l=a&1<<c-s;t=s*2-c;a^=h^h>>t^l^l<<t;}
return a;}
04674662007/07/06(金) 11:01:36
typedef unsigned U;U R(U a){int c=0,s,t;U n,h,l;for(n=~0;n>>=1;c++);
for(s=t=c;s>c>>1;s--,t-=2){h=a&1<<s;l=a&1<<c-s;a^=h^h>>t^l^l<<t;}
return a;}

1文字縮め('A`)
04684662007/07/06(金) 11:08:31
何度もすまんが色々間違っていた気がしてきた
何でわざわざ同じ変数内で入れ換えてるんだ俺…
0469デフォルトの名無しさん2007/07/06(金) 13:08:37
typedef unsigned U;U R(U a){U b=0,n=~(U)0,i=0;for(;n>>=1;++i)b|=((a>>i)&1)<<(n-i
);return b;}

もう少し短くなりそうだが
0470デフォルトの名無しさん2007/07/06(金) 13:14:15
typedef unsigned U;U R(U a){U b=0,n=~b,i=0;for(;n>>=1;++i)b|=(a>>i&1)<<(n-i);r\
eturn b;}

とりあえずここまで。
0471デフォルトの名無しさん2007/07/06(金) 13:18:28
久しぶりだな
スレがあるのｗ
0472デフォルトの名無しさん2007/07/06(金) 13:20:42
スレはずっとあるよ。なくならないよ。
0473デフォルトの名無しさん2007/07/06(金) 13:21:26
>>472
すまね
誤爆したｗ

レス
0474デフォルトの名無しさん2007/07/06(金) 13:28:51

　　(　ﾟдﾟ)　 　　　　「誤爆」
＿(__つ/￣￣￣/＿　
　　＼/　　　　/
　　　　￣￣￣
　
　　( ﾟдﾟ　)
＿(__つ/￣￣￣/＿　
　　＼/　　　　/
　　　　￣￣￣

　　(　ﾟдﾟ)
＿(__つ/￣￣￣/＿　
　　＼/　　　　/
　　　　￣￣￣

　　( ﾟдﾟ )
＿(__つ/￣￣￣/＿　
　　＼/　　　　/
0475デフォルトの名無しさん2007/07/06(金) 13:30:18
>>474
七行でよろｗ
04764652007/07/06(金) 13:34:46
自分でもやってみた
typedef unsigned U;U R(U a){U b=0,i=1;for(;i;i*=2)b=b*2+!!(a&i);return b;}
iが邪魔だね・・・消せないかなぁ
0477デフォルトの名無しさん2007/07/06(金) 13:39:01
>>475
int printf(const char*format,...);char*a="　　(%sﾟдﾟ%s)%s\n＿(__つ/￣￣￣/＿\
\n　　＼/　　　　/\n　　　　￣￣￣\n\n",*s="　",*e="";main(){printf(a,s,e,"　\
　　　「誤爆」");printf(a,e,s,e);printf(a,s,e,e);printf(a,e,e,e);return 0;}
0478デフォルトの名無しさん2007/07/06(金) 13:43:04
#include<stdio.h>
printf("　　(　ﾟдﾟ)　 　　　　「誤爆」\n＿(__つ/￣￣￣/＿　\n　　＼/　　　　/\n　　　　￣￣￣　
　　( ﾟдﾟ　)\n＿(__つ/￣￣￣/＿　\n　　＼/　　　　/\n　　　　￣￣￣\n　　(　ﾟдﾟ)\n＿(__つ/￣￣￣/＿　
　　＼/　　　　/\n　　( ﾟдﾟ )\n＿(__つ/￣￣￣/＿　\n　　＼/　　　　/");
0479デフォルトの名無しさん2007/07/07(土) 01:29:49
>>470
typedef unsigned u;u r(u n){u i=~0,a=0;for(;i;i/=2,a=n%2+a*2,n/=2);return a;}
一行切った。
0480デフォルトの名無しさん2007/07/07(土) 01:31:44
>>476の方が短かった……orz
0481デフォルトの名無しさん2007/07/07(土) 01:34:25
~0 と ~0u のビット表現って必ず等しい？
0482デフォルトの名無しさん2007/07/07(土) 02:17:28
手元に環境がないからテストしてないんだけどこんなんじゃだめ？

typedef unsigned u;u r(u n){return u?(n&1?~0-~0/2:0)+r(n/2)/2:0;}

65字
04834762007/07/07(土) 02:26:17
>>481
ありがとう。これでもうまくいったみたい。
R(int a){int b=0,i=1;for(;i;i*=2)b=b*2+!!(a&i);return b;}

アルゴリズムに致命的な問題がある気がする
0484デフォルトの名無しさん2007/07/07(土) 03:25:52
R(a){int b=0,i=1;for(;i;i*=2)b+=b+!!(a&i);return b;}
R(a){int b=0,i=1;while(b+=b+!!(a&i),i*=2);return b;}

どっちも52文字
でも for文の方が わかりやすさを維持しててイイカナ
0485デフォルトの名無しさん2007/07/07(土) 03:44:19
int を for の最初の項に入れると一文字減る
0486デフォルトの名無しさん2007/07/07(土) 03:45:04
ごめん>>485は勘違い
0487デフォルトの名無しさん2007/07/07(土) 03:52:44
brainfuckのインタプリタを作ってみた。

#include <stdio.h>
unsigned char M[30000],*m=M;char P[30000],*p=P;R(c){for(;c&&p>=P;*--p==']'?c++:
*p=='['&&c--);}main(i,v)char**v;{FILE*f;for(i=30000;i;M[--i]=0);if(f=fopen(v[1]
,"rt")){while(1+(*p++=getc(f)));p=P-1;while(1+*++p)*p=='>'?*++m:*p=='<'?*--m:*p
=='+'?++*m:*p=='-'?--*m:*p=='.'?putchar(*m):*p==','?*m=getchar():*p==']'&&*m&&R
(1);}}
0488 ◆iicafiaxus 2007/07/07(土) 04:29:11
なんか34文字でできたっぽい
dmcでテストした

r(n){return n?r(n*2)*2+!!(n<0):0;}
0489デフォルトの名無しさん2007/07/07(土) 04:57:53
!!いらなくね？
0490デフォルトの名無しさん2007/07/07(土) 05:01:18
あーほんとだ、そりゃそうだ
32だね
0491デフォルトの名無しさん2007/07/07(土) 05:08:40
やっぱ引数だけで済ますと格段に短くなるなぁ
どうしても思いつかなかった
0492デフォルトの名無しさん2007/07/07(土) 05:24:11
やっぱ再帰は強いね

これで30
r(n){return n?r(n*2)*2|n<0:0;}
0493デフォルトの名無しさん2007/07/09(月) 12:47:17
ネタ振られたら物凄い勢いで加速して、
最短解っぽいのが出たら急に失速するんだなｗ
0494デフォルトの名無しさん2007/07/09(月) 16:21:29
ﾜﾛﾀ
0495デフォルトの名無しさん2007/07/09(月) 23:34:47
それがこのスレのいいところさ
0496デフォルトの名無しさん2007/07/10(火) 00:36:20
>>464
なんかそれだと上手くいったりするんでしょうね。

でも僕はやっぱりワイド文字の扱いが良く分かっていないので、
もしよければワイド文字処理版を作ってみてくださいな。
0497デフォルトの名無しさん2007/07/10(火) 02:01:23
なんだかなぁ
0498デフォルトの名無しさん2007/07/10(火) 17:42:56
using System;using System.Drawing;class P{static void Main(string[]a){Bitmap
m=new Bitmap(a[0]);int o,p,q,r,g,b,t,l,z=int.Parse(a[2]),w,h=0,W=m.Width,H=m.
Height;Bitmap v=new Bitmap(W,H);Color c;for(;h<H;h++)for(w=0;w<W;w++){p=r=g=b=
0;for(t=-z;t<2;t++)if((o=h+t)>0&&o<H)for(l=-z;l<2;l++)if((q=w+l)>0&&q<W){c=m.
GetPixel(q,o);r+=c.R;g+=c.G;b+=c.B;p++;}v.SetPixel(w,h,Color.FromArgb(r/p,g/p,
b/p));}v.Save(a[1]);}}

画像ぼかし。
これならマスク使える…?
04994982007/07/10(火) 19:23:38
using System;using System.Drawing;class P{static void Main(string[]a){Bitmap m
=new Bitmap(a[0]);int o,p,q,r,g,b,t,l,z=int.Parse(a[2]),w,h=0,W=m.Width,H=m.
Height;Bitmap v=new Bitmap(W,H);Color c;for(;h<H;h++)for(w=0;w<W;w++){p=r=g=b=
0;for(t=-z;t<z;t++)if((o=h+t)>-1&&o<H)for(l=-z;l<z;l++)if((q=w+l)>-1&&q<W){c=m
.GetPixel(q,o);r+=c.R;g+=c.G;b+=c.B;p++;}v.SetPixel(w,h,Color.FromArgb(r/p,g/p
,b/p));}v.Save(a[1]);}}

範囲が-指定値から2までになってたのを修正 orz

using System;using System.Drawing;using System.Drawing.Imaging;using System.
Runtime.InteropServices;class P{static void Main(string[]a){Bitmap m=new 
Bitmap(a[0]);int o,p,q,r,g,b,t,l,z=int.Parse(a[2]),w,h=0,W=m.Width,H=m.Height,
y=W*H*3,e;byte[]src,dst;src=dst=new byte[y];BitmapData d=m.LockBits(new 
Rectangle(0,0,W,H),ImageLockMode.ReadWrite,PixelFormat.Format24bppRgb);e=d.
Stride;Marshal.Copy(d.Scan0,src,0,y);for(;h<H;h++)for(w=0;w<W;w++){p=r=g=b=0;
for (t=-z;t<z;t++)if((o=h+t)>-1&&o<H)for(l=-z;l<z;l++)if((q=w+l)>-1&&q<W){
r+=src[o*e+q*3];g+=src[o*e+q*3+1];b+=src[o*e+q*3+2];p++;}dst[h*e+w*3]=(byte)(
r/p);dst[h*e+w*3+1]=(byte)(g/p);dst[h*e+w*3+2]=(byte)(b/p);}Marshal.Copy(dst,
0,d.Scan0,y);m.UnlockBits(d);m.Save(a[1]);}}

高速化版。誰か短くして orz
0500デフォルトの名無しさん2007/07/11(水) 00:07:15
総和テーブルでいいじゃんか
0501デフォルトの名無しさん2007/07/11(水) 08:57:14
そうわ思わないな
0502デフォルトの名無しさん2007/07/12(木) 02:21:33
CPU対戦の七行すごろくを考えてみたんだが、
動作確認テストをやっている最中に虚しくなってやめた。

ゲームって難しいなぁ。
0503デフォルトの名無しさん2007/07/13(金) 00:56:21
>>1 を見てたんだけど、
part4って297レスしかつかなかったの？
0504デフォルトの名無しさん2007/07/13(金) 00:58:33
>>40にあった。ごめん。
0505デフォルトの名無しさん2007/07/15(日) 13:11:08
自動生成の迷路ゲーム…なんて無理か。
0506デフォルトの名無しさん2007/07/15(日) 19:06:02
迷路を作るだけなら前あったかも
0507デフォルトの名無しさん2007/07/15(日) 22:41:39
Javaの3Dな迷路があったと思ふ
050862007/07/16(月) 01:29:02
交点の座標を詳しく求めてる

俺工房だから間違えてるのかもしれない
0509デフォルトの名無しさん2007/07/16(月) 01:58:27
#include <stdio.h>
double s(double c){double x;int i,n;n = 10;x = 0;do {x += 1;} while (x * x < c);
for (i = 0;i < n;i++) {x = (x + c / x)/2;}return x;}int main(){double c;int a;
scanf("%d", &a);c = s(a);printf("√は%lfです。\n", c);return 0;}



ニュートン法を使ったあれです。
いじくってやってください。
0510デフォルトの名無しさん2007/07/16(月) 21:05:29
１．空白はつめる
２．初期化と代入は一緒に
３．+=1は++に
でだいぶ短くなる予感。
ニュートン法とやらがあってるんかは知らんけどｗ
0511デフォルトの名無しさん2007/07/16(月) 21:27:20
int printf(const char*,...);int scanf(const char*,...);main(){int c,n=10;double
x=0;scanf("%d",&c);do x++;while(x*x<c);while(--n)x=(x+c/x)/2;printf("sqrt(%d)=\
%f\n",c,x);return 0;}
0512デフォルトの名無しさん2007/07/16(月) 23:12:42
typedef int f(const char*,...);f printf,scanf;double c,x,n=10;main(){for(scan\
f("%lf",&c);x*x<c;)++x;for(;n--;x/=2)x+=c/x;return!printf("√は%fです。\n",x);}
0513デフォルトの名無しさん2007/07/22(日) 20:17:55
>++++++++++[>+>+++>++++++++++++[<]>-]> > >++++........<<+++.---.> >..<++..
..>...<<+++.---.> >..<....>...<..................>..<.............>...<.................>..<<+++.---.>
>.......<...>..<..>..<..>.....<..................>..<............>.....<..>..<..>..<<+++.---.> >..<..
..>..<..>....<...>..<...>..<...>..<.>..<.>....<..>......<.>..<...>..<.>..<...>..<.>..<.>..<<++
+.---.> >..<.....>..<.>..<......>......<...>..<.>...<...>..<...>..<...>..<...>..<.>..<......>...<<
+++.---.> >..<....>...<.>..<.....>..<...>..<...>..<.>..<....>..<...>..<...>..<...>..<.>..<...>..
<.>..<.>..<<+++.---.> >........<..>..<......>....<.>...<.>..<.>..<....>..<...>..<....>.....<...>.....<..>..<...>..
0514デフォルトの名無しさん2007/07/30(月) 13:01:28
>>513
なんのプログラム？
0515デフォルトの名無しさん2007/07/30(月) 13:02:57
標準出力にBrainfuckと読める絵を出力するプログラム。
0516デフォルトの名無しさん2007/07/30(月) 13:03:45
>>515
言語は何なのかおせーて
0517デフォルトの名無しさん2007/07/30(月) 13:04:23
Brainfuck
0518デフォルトの名無しさん2007/07/30(月) 13:08:58
なにこれおもすれｗ

+++++++++[>++++++++>+++++++++++>+++++<<<-]>.>++.+++++++..+++.>-.
------------.<++++++++.--------.+++.------.--------.>+.
0519デフォルトの名無しさん2007/07/30(月) 21:50:24
ローマ字をSJIS半角カタカナに変換する、そんな関数があると聞き
やってまいりました。
ヘボン式訓令式どちらもサポートすると
おそらく300バイト程度の関数になるでしょうか？
0520デフォルトの名無しさんNGNG?S★(511223)
「aiueo」のローマ字半角カナ変換して表示。
●ローマ字半角カナ変換(Sの|Sを)
　A=(「shi|chi|tsu|fu|wi|wu|we|ji|kya|kyu|kyo|sya|syu|syo|tya|tyu|tyo|nya|nyu|nyo|hya|hyu|hyo|mya|myu|myo|rya|ryu|
ryo|gya|gyu|gyo|zya|zyu|zyo|bya|byu|byo|pya|pyu|pyo|sha|shu|sho|cha|chu|cho|ja|ju|jo|ka|ki|ku|ke|ko|sa|si|su|se|so|
ta|ti|tu|te|to|na|ni|nu|ne|no|ha|hi|hu|he|ho|ma|mi|mu|me|mo|ya|yu|yo|ra|ri|ru|re|ro|wa|wo|ga|gi|gu|ge|go|za|zi|zu|ze|
zo|da|di|du|de|do|ba|bi|bu|be|bo|pa|pi|pu|pe|po|nn|n|a|i|u|e|o」の改行を空に置換)を"|"で区切る。
　B=(「ｼ|ﾁ|ﾂ|ﾌ|ｳｨ|ｳ|ｳｪ|ｼﾞ|ｷｬ|ｷｭ|ｷｮ|ｼｬ|ｼｭ|ｼｮ|ﾁｬ|ﾁｭ|ﾁｮ|ﾆｬ|ﾆｭ|ﾆｮ|ﾋｬ|ﾋｭ|ﾋｮ|ﾐｬ|ﾐｭ|ﾐｮ|ﾘｬ|ﾘｭ|ﾘｮ|ｷﾞｬ|ｷﾞｭ|ｷﾞｮ|ｼﾞｬ|ｼﾞｭ|ｼﾞｮ|ﾋﾞｬ|
ﾋﾞｭ|ﾋﾞｮ|ﾋﾟｬ|ﾋﾟｭ|ﾋﾟｮ|ｼｬ|ｼｭ|ｼｮ|ﾁｬ|ﾁｭ|ﾁｮ|ｼﾞｬ|ｼﾞｭ|ｼﾞｮ|ｶ|ｷ|ｸ|ｹ|ｺ|ｻ|ｼ|ｽ|ｾ|ｿ|ﾀ|ﾁ|ﾂ|ﾃ|ﾄ|ﾅ|ﾆ|ﾇ|ﾈ|ﾉ|ﾊ|ﾋ|ﾌ|ﾍ|ﾎ|ﾏ|ﾐ|ﾑ|ﾒ|ﾓ|ﾔ|ﾕ|ﾖ|ﾗ|
ﾘ|ﾙ|ﾚ|ﾛ|ﾜ|ｦ|ｶﾞ|ｷﾞ|ｸﾞ|ｹﾞ|ｺﾞ|ｻﾞ|ｼﾞ|ｽﾞ|ｾﾞ|ｿﾞ|ﾀﾞ|ﾁﾞ|ﾂﾞ|ﾃﾞ|ﾄﾞ|ﾊﾞ|ﾋﾞ|ﾌﾞ|ﾍﾞ|ﾎﾞ|ﾊﾟ|ﾋﾟ|ﾌﾟ|ﾍﾟ|ﾎﾟ|ﾝ|ﾝ|ｱ|ｲ|ｳ|ｴ|ｵ」の改行を空に置換)を"|"で区切る。
　Aで反復、S=Sの対象をB[回数-1]に置換。
　Sで戻る。

誰か短くしてくれ
0521デフォルトの名無しさん2007/07/30(月) 22:48:23
ye/ｲｪ　とか　dhu/ﾃﾞｭ　とかあるんだよ？
0522デフォルトの名無しさんNGNG?S★(511223)
「ローマ字」のwiki見て書いたから忘れてたすまんorz
0523デフォルトの名無しさん2007/07/31(火) 00:25:27
wyi,wyeって半角カタカナないんだな。
0524デフォルトの名無しさん2007/07/31(火) 03:37:18
ローマ字変換、正攻法で攻めたらJavaScriptで18行になってしまた…
スレに貼れないし。鬱だ氏のうorz
0525デフォルトの名無しさん2007/07/31(火) 08:02:16
>>520
それって擬似コード？それともなでしこ？
0526デフォルトの名無しさんNGNG?S★(511224)
なでしこですよ
正攻法がどんなんかわからん・・・この方法じゃこれ以上削れそうにないし・・・
0527デフォルトの名無しさん2007/07/31(火) 14:57:44
>>526
ﾄｪｪｲがうまく変換できません・・・
0528デフォルトの名無しさん2007/07/31(火) 15:01:03
ｱｯｰ
0529デフォルトの名無しさんNGNG?S★(511224)
「kyouhasuunennburinidaigakuniittekoyoutoomoimasutoleleia-ltu」をローマ字半角カナ変換して言う。
//ｷｮｳﾊｽｳﾈﾝﾌﾞﾘﾆﾀﾞｲｶﾞｸﾆｲｯﾃｺﾖｳﾄｵﾓｲﾏｽﾄｪｪｲｱｰｯ
●ローマ字半角カナ変換(Sの|Sを)
　A=(「-|ltu|xtu|la|li|lu|le|lo|xa|xi|xu|xe|xo|bb|cc|dd|ff|gg|hh|jj|kk|ll|mm|pp|qq|rr|ss|tt|vv|ww|xx|yy|zz|ye|dhu|shi|chi|tsu|
fu|wi|wu|we|ji|kya|kyu|kyo|sya|syu|syo|tya|tyu|tyo|nya|nyu|nyo|hya|hyu|hyo|mya|myu|myo|rya|ryu|ryo|gya|gyu|gyo|zya|
zyu|zyo|bya|byu|byo|pya|pyu|pyo|sha|shu|sho|cha|chu|cho|ja|ju|jo|ka|ki|ku|ke|ko|sa|si|su|se|so|ta|ti|tu|te|to|na|ni|nu|ne|
no|ha|hi|hu|he|ho|ma|mi|mu|me|mo|ya|yu|yo|ra|ri|ru|re|ro|wa|wo|ga|gi|gu|ge|go|za|zi|zu|ze|zo|da|di|du|de|do|ba|bi|bu|be|
bo|pa|pi|pu|pe|po|nn|n|a|i|u|e|o」の改行を空に置換)を"|"で区切る。
　B=(「ｰ|ｯ|ｯ|ｧ|ｨ|ｩ|ｪ|ｫ|ｧ|ｨ|ｩ|ｪ|ｫ|ｯb|ｯc|ｯd|ｯf|ｯg|ｯh|ｯj|ｯk|ｯl|ｯm|ｯp|ｯq|ｯr|ｯs|ｯt|ｯv|ｯw|ｯx|ｯy|ｯz|ｲｪ|ﾃﾞｭ|ｼ|ﾁ|ﾂ|ﾌ|ｳｨ|ｳ|ｳｪ|ｼﾞ|ｷｬ|
ｷｭ|ｷｮ|ｼｬ|ｼｭ|ｼｮ|ﾁｬ|ﾁｭ|ﾁｮ|ﾆｬ|ﾆｭ|ﾆｮ|ﾋｬ|ﾋｭ|ﾋｮ|ﾐｬ|ﾐｭ|ﾐｮ|ﾘｬ|ﾘｭ|ﾘｮ|ｷﾞｬ|ｷﾞｭ|ｷﾞｮ|ｼﾞｬ|ｼﾞｭ|ｼﾞｮ|ﾋﾞｬ|ﾋﾞｭ|ﾋﾞｮ|ﾋﾟｬ|ﾋﾟｭ|ﾋﾟｮ|ｼｬ|ｼｭ|ｼｮ|
ﾁｬ|ﾁｭ|ﾁｮ|ｼﾞｬ|ｼﾞｭ|ｼﾞｮ|ｶ|ｷ|ｸ|ｹ|ｺ|ｻ|ｼ|ｽ|ｾ|ｿ|ﾀ|ﾁ|ﾂ|ﾃ|ﾄ|ﾅ|ﾆ|ﾇ|ﾈ|ﾉ|ﾊ|ﾋ|ﾌ|ﾍ|ﾎ|ﾏ|ﾐ|ﾑ|ﾒ|ﾓ|ﾔ|ﾕ|ﾖ|ﾗ|ﾘ|ﾙ|ﾚ|ﾛ|ﾜ|ｦ|ｶﾞ|ｷﾞ|ｸﾞ|ｹﾞ|ｺﾞ|
ｻﾞ|ｼﾞ|ｽﾞ|ｾﾞ|ｿﾞ|ﾀﾞ|ﾁﾞ|ﾂﾞ|ﾃﾞ|ﾄﾞ|ﾊﾞ|ﾋﾞ|ﾌﾞ|ﾍﾞ|ﾎﾞ|ﾊﾟ|ﾋﾟ|ﾌﾟ|ﾍﾟ|ﾎﾟ|ﾝ|ﾝ|ｱ|ｲ|ｳ|ｴ|ｵ」の改行を空に置換)を"|"で区切る。
　Aで反復、S=Sの対象をB[回数-1]に置換。
　Sで戻る。


:::::::::::.:　.:. . ∧＿∧ . . . .: ::::::::
:::::::: :.: . .　/彡ミ゛ヽ;)ヽ、. ::: : ::
::::::: :.: . . / :::/:: ヽ、ヽ、i . .:: :.: :::
￣￣￣（_,ノ ￣￣ヽ､_ノ￣
0530デフォルトの名無しさん2007/07/31(火) 17:02:01
>>529
ちょｗ
スレタイを７回音読しろよｗ
0531デフォルトの名無しさんNGNG?S★(511224)
>>529からがんばっても10行にしかなりませんでした　難しいわorz
0532デフォルトの名無しさん2007/07/31(火) 19:11:57
ｸｧ/qa
ｸｧ/qwa
05335242007/07/31(火) 20:50:37
var A="xtu|ltu|kwa|ky|sw|sy|sh|tw|ty|th|ny|hy|my|ry|wh|gw|gy|zy|dw|dy|dh|by|"+
"py|qw|qy|fw|fy|jy|vy|cy|ch|xy|ly|k|s|t|n|h|m|y|r|w|g|z|d|b|p|q|f|j|v|c|x|l|"+
"a|i|u|e|o";var B="ｯ|ｯ|ｸｧ|ｷy|ｽa|ｼy|ｼｬ|ｼ|ｼｭ|ｼｪ|ｼｮ|ﾄa|ﾁy|ﾃy|ﾆy|ﾋy|ﾐy|ﾘy|ｳｧ|ｳｨ"+
"|ｳ|ｳｪ|ｳｫ|ｸﾞa|ｷﾞy|ｼﾞy|ﾄﾞa|ﾁﾞy|ﾃﾞy|ﾋﾞy|ﾋﾟy|ｸa|ｷy|ﾌa|ﾌy|ｼﾞy|ｳﾞy|ﾁy|ﾁｬ|ﾁ|ﾁｭ|ﾁｪ|"+
"ﾁｮ|y|y|ｶ@|ｻ@|ﾀ@|ﾅ@|ﾊ@|ﾏ@|ﾔ|ｲ|ﾕ|ｲｪ|ﾖ|ﾗ@|ﾜ|ｳｨ|ｳ|ｳｪ|ｦ|ｶ@ﾞ|ｻ@ﾞ|ﾀ@ﾞ|ﾊ@ﾞ|ﾊ@ﾟ|ｸｧ|ｸ"+
"ｨ|ｸ|ｸｪ|ｸｫ|ﾌｧ|ﾌｨ|ﾌ|ﾌｪ|ﾌｫ|ｼﾞｬ|ｼﾞ|ｼﾞｭ|ｼﾞｪ|ｼﾞｮ|ｳﾞｧ|ｳﾞｨ|ｳﾞ|ｳﾞｪ|ｳﾞｫ|ｶ|ｼ|ｸ|ｾ|ｺ|a|a"+
"|ｱ|ｲ|ｳ|ｴ|ｵ";B=B.replace(/\|.@([ﾟﾞ]?)/g,function(e){var r="";for(var i=0;i<5;
i++)r+="|"+String.fromCharCode(e.charCodeAt(1)+i)+RegExp.$1;return r}).replace
(/([^\|]*)a\|/g,"$1ｧ|$1ｨ|$1ｩ|$1ｪ|$1ｫ|").replace(/([^\|]*)y\|/g,"$1ｬ|$1ｨ|$1ﾕ|"+
"$1ｪ|$1ｮ|").split("|");A=A.replace(/([^aiueo]{1,2})\|/g,"$1a|$1i|$1u|$1e|$1o|"
).split("|");var t=prompt().replace("nn","ﾝ").replace(/([^aiueo])\1/g,"ｯ$1").
replace(/n([^aiueo]|$)/g,"ﾝ$1");for(var i=0;i<A.length;i++)t=t.replace(A[i],
B[i],"g");alert(t);
正規表現を使わないでやっていたが、なでしこのコードを参考にして13行。MS-IMEで出る字は大体出ると思うけど。
まだ冗長だなあ。
0534デフォルトの名無しさんNGNG?S★(511224)
S="";X="-|ltu|xtu|bb|cc|dd|ff|gg|hh|jj|kk|ll|mm|pp|qq|rr|ss|tt|vv|ww|xx|yy|zz|ye|dhu|shi|chi|tsu|fu|ji|";Y=空;Z=空;
M="ky|sy|ty|ny|hy|my|ry|gy|zy|by|py|sh|ch|j|y"を"|"で 区切;N="a|u|o"を"|"で区切;Mで反復,D=対象;Nで反復,YにD&対象を一行追加;
P="l|x|w|k|s|t|n|h|m|r|g|z|d|b|p"を"|"で区切;Q="a|i|u|e|o"を"|"で区切;Pで反復,E=対象;Qで反復,ZにE&対象を一行追加;
A="{Xを"|"で区切}{\n}{Y}{Z}nn{\n}n{\n}a{\n}i{\n}u{\n}e{\n}o";B=(("ｰ|ｯ|ｯ|ｯb|ｯc|ｯd|ｯf|ｯg|ｯh|ｯj|ｯk|ｯl|ｯm|ｯp|ｯq|ｯr|ｯs|ｯt|ｯv|ｯw|ｯx|ｯy|ｯz|ｲｪ|ﾃﾞｭ|ｼ|ﾁ|ﾂ|
ﾌ|ｼﾞ|ｷｬ|ｷｭ|ｷｮ|ｼｬ|ｼｭ|ｼｮ|ﾁｬ|ﾁｭ|ﾁｮ|ﾆｬ|ﾆｭ|ﾆｮ|ﾋｬ|ﾋｭ|ﾋｮ|ﾐｬ|ﾐｭ|ﾐｮ|ﾘｬ|ﾘｭ|ﾘｮ|ｷﾞｬ|ｷﾞｭ|ｷﾞｮ|ｼﾞｬ|ｼﾞｭ|ｼﾞｮ|ﾋﾞｬ|ﾋﾞｭ|ﾋﾞｮ|ﾋﾟｬ|ﾋﾟｭ|ﾋﾟｮ|ｼｬ|ｼｭ|ｼｮ|ﾁｬ|ﾁｭ|ﾁｮ|
ｼﾞｬ|ｼﾞｭ|ｼﾞｮ|ﾔ|ﾕ|ﾖ|ｧ|ｨ|ｩ|ｪ|ｫ|ｧ|ｨ|ｩ|ｪ|ｫ|ﾜ|ｳｨ|ｳ|ｳｪ|ｦ|ｶ|ｷ|ｸ|ｹ|ｺ|ｻ|ｼ|ｽ|ｾ|ｿ|ﾀ|ﾁ|ﾂ|ﾃ|ﾄ|ﾅ|ﾆ|ﾇ|ﾈ|ﾉ|ﾊ|ﾋ|ﾌ|ﾍ|ﾎ|ﾏ|ﾐ|ﾑ|ﾒ|ﾓ|ﾗ|ﾘ|ﾙ|ﾚ|ﾛ|ｶﾞ|ｷﾞ|ｸﾞ|ｹﾞ|ｺﾞ|
ｻﾞ|ｼﾞ|ｽﾞ|ｾﾞ|ｿﾞ|ﾀﾞ|ﾁﾞ|ﾂﾞ|ﾃﾞ|ﾄﾞ|ﾊﾞ|ﾋﾞ|ﾌﾞ|ﾍﾞ|ﾎﾞ|ﾊﾟ|ﾋﾟ|ﾌﾟ|ﾍﾟ|ﾎﾟ|ﾝ|ﾝ|ｱ|ｲ|ｳ|ｴ|ｵ")の改行を空に置換)を"|"で区切;Aで反復,S=Sの対象をB[回数-1]に置換;

>>533を参考にして苦しいがスレタイ通りに・・・(ﾟДﾟ;)
0535デフォルトの名無しさん2007/07/31(火) 21:54:14
一行79文字が守られていません。お引取りください。
0536デフォルトの名無しさんNGNG?S★(511224)
＼(^o^)／　ヽ　←さじ
0537デフォルトの名無しさん2007/07/31(火) 22:19:30
ソースコードをP2Pネットワークに置く
ソースコードのハッシュを算出する
ハッシュを元にソースコードをDLしてくる
　　→事実上ソースコードはハッシュ文字数に圧縮される　　∩( ・ω・)∩　ばんざーい
0538デフォルトの名無しさんNGNG?S★(511224)
∩( ・ω・)∩　ばんざーい
0539デフォルトの名無しさん2007/07/31(火) 22:36:23
>>537
7行79桁でファイル共有ソフトを書けと。
0540デフォルトの名無しさんNGNG?S★(511224)
「∩( ・ω・)∩　banza-i」をローマ字半角カナ変換して言う。
●ローマ字半角カナ変換(Sの|Sを)
　経過ダイアログはオフ。
　A=((「http://isoroku.net/A.txt」をHTTPデータ取得)の改行を空に置換)を"|"で区切る。
　B=((「http://isoroku.net/B.txt」をHTTPデータ取得)の改行を空に置換)を"|"で区切る。
　Aで反復、S=Sの対象をB[回数-1]に置換。
　Sで戻る。

//∩( ・ω・)∩　ばんざーい
//orz
0541デフォルトの名無しさん2007/08/01(水) 03:10:59
>>525-526
疑似コードにしか見えんｗ
0542デフォルトの名無しさん2007/08/01(水) 08:49:44
日本語でプログラミング気持ち悪い
0543デフォルトの名無しさん2007/08/01(水) 15:08:00
>>540お前はアホか
0544デフォルトの名無しさん2007/08/01(水) 15:26:47
日本語でプログラミングはなしがいい
0545デフォルトの名無しさん2007/09/03(月) 14:33:17
保守
■ このスレッドは過去ログ倉庫に格納されています