おまえら作ったプログラムをｳﾌﾟせよ

最近プログラミング技術板が
プログラミング言語板になりつつある。
いや、プログラミング初心者相談所になりつつある。

ここらで、プログラミング技術とはどのような物なのかを
夏厨を含めた初心者にしめそうじゃないか。

とりあえず、基本方針を一つ提案してみる。
�@ソースコードの著作権は放棄する事
�A似たようなプログラムが他にあっても、それを問題としない事
�Bプログラムの作者が誰なのかは気にしない事
�Cアーキテクチャー（ライブラリー）に依存したコードは「なるべく」使用しない事
（プログラミング言語の知識とアルゴリズムの知識があれば読める事が望ましい）
�D見た目が楽しい気がするプログラムをｳﾌﾟする事
�E他人のソースコードの一部を書き換えて、ｳﾌﾟする時は
作者の許可を取ること
�Fプログラムの作者はキャップを使う事
�Gコーディングのポリシーは人それぞれである事を認める事
（ここはOOについて語るｽﾚじゃありません）

俺もｽﾚにモラルが出来次第ｳﾌﾟします

ところで、誰かｳﾌﾟﾛﾀﾞの提供をお願いします。

俺も1にモラルが出来次第ｳﾌﾟします

7行プログラミングスレがあるのでいらないです。このスレ。

インモラルな世界

どっかにあったよ、ム板用うぷ板

ム板で自力でプログラム作った事ある人なんているの？

汚染を除去しました。

>>9
先生をだまそうとしてはいけないな。

>>8
どうやら、俺一人らしい（ｗ

>>11
そうですね。

うぷろーだ
http://tool-ya.ddo.jp/2ch/trash-box/index.html

>>1
VBでも参戦できるますか？

できるますって何やねん…逝ってきます

>>14
いいんでないの？

>>14
�Cアーキテクチャー（ライブラリー）に依存したコードは「なるべく」使用しない事
この点ではマイナスになりそうだけど

�D見た目が楽しい気がするプログラムをｳﾌﾟする事
この点は満たしそうだから

いいと思うよ
ただ、ライブラリーを使うためのGUIを作っただけなんてのは
やめてね（ｗ

>>1 が最初にウプせよ

schemer の作品ｷﾎﾞｰﾝ

テーマがないと作らないんじゃねえの？

Javaで参戦したいのですが、
JDK1.4.0でOKですか？
MSVM相当で動くものがよいですか？

1.4でOK

ソース見て、すげぇ！っと思わせたらなんでもいいのかな？

じゃあスパゲッティは不可

#include <stdio.h>
main()
{
printf("Hello! >>1\n");
}

うpしたぞ！

>>25
（´-`）.｡ｏO（誰かやると思ったよ…）

☆ ﾁﾝ　　　　　　　　ﾊﾗﾍｯﾀ〜
　　　　　　ﾊﾗﾍｯﾀ〜
☆　ﾁﾝ　　〃　Λ＿Λ 　 ／￣￣￣￣￣￣￣￣￣￣￣￣
　ヽ　＿＿_＼（＼・∀・）＜　お題まだー？？
　 　 ＼＿／⊂　⊂＿)＿ ＼＿＿＿＿＿＿＿＿＿＿＿＿
　 ／￣￣￣￣￣￣￣／|
　　| ￣ ￣￣￣　￣￣:| :|
　　|　　　　　　　　 　　 |

>テーマがないと作らないんじゃねえの？
いままで作った物をｳﾌﾟすればいいんでない？

ｳﾌﾟﾛﾀﾞがあるなら、作りかけをｳﾌﾟするけど

>>28
>>13

20020729201422000.jpg （・∀・）ｲｲ!!

つくりかけの2chブラウザのソースをうpしようか？
(GUI部分だけだけど。)
(ついこのまえまで一応読み書きできるのがあったけどまちがえてソースツリーを消しちゃった(泣)

>>31
見てみたい。

１０桁トリップうぷしたよ。てへ。
http://ooo.2ch.net/test/read.cgi/jikken/1027946485/

>>32
いま見た目をよくしてるところ。
数日まって。(w

>>34
何日でも待つよ。焦らないでがんがってくれ。

>>33
結局俺は騙されたのか騙されてないのか分からないのだが…

このｽﾚで、ム板のレベルの低さが見えてしまった。

>>37 そういうあなたはなにをつくってるんですか？

この手のスレ4つ目だな……

>>37
ここじゃなけりゃ、即行でウィリーｱﾌﾟられて終わりだったよ

10 goto 10

void Tasizan(int x ,int y)
{
int k;
k = x + y;
return k;
}

1のレベルに合わせたプログラムが投稿されはじめました。

よかったね。

print "（・∀・）ﾆﾔﾆﾔ" x 999;

print "\n\n1000ｹﾞﾄｰ⊂(ﾟДﾟ⊂⌒｀つ≡≡≡(´⌒;;;≡≡≡";

10 print "1ﾊ ﾊﾞｶ”
20 beep
30 goto 10

>>45
ﾋﾟｰﾌﾟｰうるせいよ

int PI(void)
{
　return 3;
}

>>47
社会風刺ですか？

こっちのがｲｲ
int PI(void)
{
　return (int)3.14;
}

#include<math.h>

#define NEW_PI ((int)M_PI)

ただ喚くだけの人は無視しましょう

#include <iostream>
int main()
{ //copyしちゃう!!
  int c;
  while ((c=std::cin.get()) != EOF)
    std::cout.put(c);
  
  return EXIT_SUCCESS;
}

>>52
どっちかっつーと、echoだなぁ

http://tool-ya.ddo.jp/2ch/trash-box/contents.jsp?file=20020730101405009.lzh
ほれ糞icon editorその場限りでよかったのですべてが固定だから。

なにかうｐされたもよう
http://tool-ya.ddo.jp/2ch/trash-box/contents.jsp?file=20020730101405009.lzh

age

なんかこわいな。

そーいや俺もグラフのソース公開してたな。
Web 上の CVS ファイルからグラフ書くアプレット。縦横オートスケール。
http://tool-ya.ddo.jp/2ch/kiriko/index.jsp
http://tool-ya.ddo.jp/2ch/kiriko/01succor/index.jsp

ﾀﾞｳｿして見れ。
ソースも入ってるから、小分けら読んでビルドすればいい。
たいした量じゃないからすぐ読めるだろ。

CVS じゃねーな。CSV

>>60
逝ってこい・・・・・・

void scp(char *s, char *d) {
　　while(*(d++) = *(s++)) ;
}

//この処理を1行で出来るって所がみそなんだぞ！
//どうだ、すごいだろ！！

>>62
ネタですか？

( ･∀･)＜ >>62 ネタ？

10 print "ﾊｰｲ ﾜﾙｲｺﾉ ﾏｲｺﾝﾊ ｶﾁｶﾁ ｽﾙｿﾞｰ"
20 motor on
30 motor off
40 goto 20

プログラムが見たいだけなら、こっちゃこい
http://pc3.2ch.net/test/read.cgi/tech/1018840143/l50

>>66
それは、みズラい

こんなんうｐされてましたがここの人? これ Win で希望のトリップ作れるの?
http://cobalt/2ch/trash-box/contents.jsp?file=20020730230611014.c

くそ、LAN 内だからいつも間違える。
http://tool-ya.ddo.jp/2ch/trash-box/contents.jsp?file=20020730230611014.c

58は作者じゃないな

10 PPINT "Hello"

run

syntax error

why?

echo "hello"

>>54
読んでみますた。
当方Winじゃないので実行しませんでしたが...

>>71
10 PPINT$="Hello"

真面目にｳﾌﾟするｾﾞYO
1000 CLS
1010 RESTORE 1060:X=INT(RND*64):Y=INT(RND*23):LOCATE X,Y:BEEP 1
1020 FOR I=1 TO 10:READ A$:B=VAL("&H"+A$)
1030 IF B<=255 THEN PRINT CHR$(B); ELSE PRINT KNJ$(A$);
1040 NEXT I:FOR W=1 TO 9999:NEXT W:BEEP 0
1050 LOCATE X,Y:PRINT SPC(14);:GOTO 1010
1060 DATA 2133,28,212E,2755,212D,29,C9,D3,D9,A7

Win用のフォトレタッチソフト。
SDKベースなんで、main.cppはもう自分でもわけわからん状態(^^;。
DIBクラスも多少は汎用性を考えて作ったものの、基本設計が２年前
のものだから、かなり汚い。

http://tool-ya.ddo.jp/2ch/trash-box/contents.jsp?file=20020801121545017.zip

>>76
ｵｵｵ

>>77
Msgbox.show(いい);

おれもうpします。Cで動きます。

while(1){
break;
}
for(;;) {
break;
}
if(0){
}

このうぷろーだのソース上げてみたよ。
http://www.moyo.instat.ne.jp/2ch/trash-box/contents.jsp?file=20020801152859020.zip

http://tool-ya.ddo.jp/2ch/trash-box/contents.jsp?file=20020801194018022.lzh

文法ファイルに文法とコード生成規則を書くだけで使える汎用コンパイラ。
先読みすらしない再帰下降法で処理しているので強烈に遅い。
微妙にバグが残っている気がしないでもないがまあ細かいことは気にしない方向で。
とりあえず cc sample.g < sample.s とコマンドラインで実行すれば、
なんかアセンブラっぽいものが出力される仕様になっている。
添付のバイナリは Win32 用。ソースは STL 使用の C++。
コンパイルは BorlandC++ のフリーバージョンで確認。

>>81
スマンがコンパイルオプションを教えてもらえますか？

>>81
とりあえずccって名前はやめてくれ。

age

>>82
bcc32 cc.cpp でいけるはず。

>>83
いい名前が思い浮かばなくてなぁ。代案頼む。

http://tool-ya.ddo.jp/2ch/trash-box/contents.jsp?file=20020802201533004.lzh

>>86
説明がないとおっかなくて実行できないんだが…

>>86
同じVB使いとして少々情けなく感じる。
>>87
ブラウザ？ ttp⇒httpとか補正機能あり。

>>86
初期の状態で『戻る』押すとエラー出て落ちるぞ

>>85
g++でコンパイルするには、
Tokenizer.cppに#include <string>
cc.cppに#include <memory>
が必要だった。
でもサンプル喰わせたらSEGVした。

>>85
まだちらっとしか見てないが、なんか変だな。

まずどこから入力するんだ? cc.cppのsetup()では"r"でfopen()してるところ
を見ると、引数が入力ファイルか?

Tokenizer::matchToken()で単語になってないトークンにもマッチしそうな気
がする。

わざわざauto_ptrを使う必要はあるのか。

>>90-91
手元にはWin環境しかないしcygwinも使ってないからgccの挙動は分からん。
ヘッダの欠けとかは書き方が悪いせいだろう。
短いソースだし、全部１ファイルにまとめれば面倒もない。
落ちるのについては分からん。悪いが、調整するなら自分でやってくれ。

setup で fopen してるのは文法ファイル。
cc grammar.file < source.file という風に使う、って最初に書いたぞ。
Tokenizerは、定義された単語と、ホワイトスペースで区切られた語を切り出す。
ホワイトスペースで区切られていれば未定義でも切り出す。
定義された単語の頭文字は、その直前にデリミタがあるものと見なされる。
auto_ptr はあってもなくても動く。書いた時の気分。
気分転換に書いた手抜き実装なんだから、まともなコードだと思うなよ。

>>92
> setup で fopen してるのは文法ファイル。
> cc grammar.file < source.file という風に使う、って最初に書いたぞ。
ああ、分かった。ないファイルを指定してた。しかしfopen()のエラーくらい
無視すんなってば。

> Tokenizerは、定義された単語と、ホワイトスペースで区切られた語を切り出す。
これをみるとホワイトスペース区切りを見てるように思えないんだが。

while( *q && ( c = m_stream->next(), ( *q == '?' ? q[ 1] != c || ( q += 2) : *q == c && q ++))){
*(short*)( p ++) = c;
}
if( !*q){
return Token( buff);
}

あとなんでshort*にキャストして書いてんの?

コードレビューワーの登場です。

>>93
おいおい。コードの子細を説明させる気か。そんなつもりはないぞ。
ホワイトスペースを見てるのは別の場所。
short* にキャストしてるのは、環境依存の、トリッキーなただの遊び。
全部まとめて 500 行足らずなんだから後は自分で解析してくれ。

DISK-BASICで、

DEF SEG = &H60
POKE &H6D7, 0

知ってる奴いるか？

プロテクト解除

>>96
構文の意味わかってんの？
DISK-BASICでプロテクトをかけるときのアルゴリズムを知ってるか？

(X \ 2) OR ((X AND 1) * 2^7)

10 width 25
15 print "ｼﾞｼﾝ ﾀﾞｰ”
17 beep
20 width 20
30 goto 10

>>99
いや・・・君に聞いてるんじゃないんだけど・・・

心なしかこのスレ N88 が多いような気がするのは何で?

レス番間違いかとｵﾓﾀ

「俺、プロテクトをかけるときのアルゴリズム知ってるんだぜ〜」
と、知識をひけらかすための>>96 = 98 の自作自演なわけだが。

99の登場で失敗、と。

激しく切ない。

ネットでむなしく自己主張・・・

それでも人ですか？

バレなきゃ今ごろ
(;ﾟ∀ﾟ)=3ﾊｧﾊｧ 凄い？俺
状態か？(w

　　　　　　　　∧＿∧
　　　　　　　 （ ´Д｀ ） ＜漏前(98=96)は>>101でミスを犯した！
　　　　　　　／,　　/　　　　自作自演は慎重に！
　　　　　　(ぃ９　　|

>>96-101 を何回も読んだがわけわからん。
どう読んだら自作自演と思えるんだろう。

あと100回読め

コンパイルめんどくせぇ。

>>108
99=98=96ではないのか？？
98=96もどう読んだらわかるのかワカラン

> 99=98=96ではないのか？？
いっしょにｽﾝﾅｰ
まあ俺は101でどうして「君に聞いてない」と当然のように言えるのか不思議だったが。
99が96であってもおかしくないのに。
別人だとわかるのは96だけってとこか。ﾊｹﾞしくどうでもいいけど。

#include <stdio.h>

void main( void )
{
　　　printf（ "氏ね>>1" ) ;
}

out &h51,0

>>115（ﾟДﾟ）ﾊｧ?

>>114

#cc sine.c
#a.out
氏ね>>1#

>>117
# cc sine.c
sine.c: 関数 `main' 内:
sine.c:4: 警告: `main' の戻り値の型が `int' ではありません
# a.out
a.out: command not found
#

>>117>>118
ﾜﾗﾀ

新ネタが上がっとる
http://tool-ya.ddo.jp/2ch/trash-box/contents.jsp?file=20020804114524000.lzh

>>120
ここ参照
ttp://pc3.2ch.net/test/read.cgi/tech/1022203094/450

>>121
別スレか。

>>122
すまそ。ちょと使わせてもらたーよ。
一応プログラムだし、勘弁してくれ
（その気があれば「挑戦」してくれてもいいし・・・）。

>>123
あぁ、別に良いよ。このスレでしか使ってないかと思ってたからさ。
てきとーに活用してくだせい。

このスレウイルス警告出るんだけど．．．

>>125
>>9 だな

10 NEW

>>125

この板自体がウイルスだからねえ。

>>126
すまん、Winつかってないんでよくわからないんだけどなんで>>9がウィルスになるの？

>>129
コンピュータウイルス検索ソフトは、特定のキーワードがあるどうかで
ウイルスかどうか判断するの。
>>9 には、それがはいってる。

>>130
Thanks.

#include <windows.h>
long WINAPI WndProc(HWND h,UINT u,WPARAM w,LPARAM l){static HWND b1,b2;
static a = 0;char str[4];HDC d;switch(u){case WM_DESTROY:PostQuitMessage(0);
break;case WM_CREATE:b1 = CreateWindow("BUTTON","+",WS_CHILD | WS_VISIBLE | BS_PUSHBUTTON,
100,100,100,100,h,(HMENU)0,((LPCREATESTRUCT)(l))->hInstance,0);b2 = CreateWindow(
"BUTTON","-",WS_CHILD | WS_VISIBLE | BS_PUSHBUTTON,300,100,100,100,h,(HMENU)1,
((LPCREATESTRUCT)(l))->hInstance,0);break;case WM_PAINT:d = GetDC(h);wsprintf(str,"%d ",a);
SetTextColor(d,RGB(0,0,0xFF));TextOut(d,0,0,str,lstrlen(str));ReleaseDC(h,d);break;
case WM_COMMAND:switch(w){case 0:++a;EnableWindow(b2,TRUE);break;case 1:--a;
EnableWindow(b1,TRUE);break;}d = GetDC(h);wsprintf(str,"%d ",a);TextOut(d,0,0,str,lstrlen(str));
ReleaseDC(h,d);if(a > 9)if(!EnableWindow(b1,FALSE)) MessageBox(h,"this +button is cannot push","test",MB_ICONWARNING);
if(!a)if(!EnableWindow(b2,FALSE)) MessageBox(h,"this -button is cannot push","test",MB_ICONWARNING);}
return DefWindowProc(h,u,w,l);}int WINAPI WinMain(HINSTANCE I,HINSTANCE,LPSTR s,int n){
HWND h; MSG m; WNDCLASS w;w.style = CS_HREDRAW | CS_VREDRAW | CS_OWNDC;w.lpfnWndProc = WndProc;
w.cbClsExtra = w.cbWndExtra = 0;w.hInstance = I;w.hIcon = LoadIcon(0,IDI_HAND);w.hCursor=LoadCursor(0,IDC_ARROW);
w.hbrBackground = (HBRUSH)GetStockObject(WHITE_BRUSH);w.lpszMenuName = 0;w.lpszClassName = "api";
RegisterClass(&w);h = CreateWindow("api","Windows",WS_OVERLAPPEDWINDOW | WS_VISIBLE,CW_USEDEFAULT,CW_USEDEFAULT,
CW_USEDEFAULT,CW_USEDEFAULT,0,0,I,0);while(GetMessage(&m,0,0,0)) DispatchMessage(&m);return m.wParam;}

>>130
だまされてるのは先生だけ？

>>133
わかんない。

ｽｹﾞｰﾜﾗﾀ
ttp://www.page.sannet.ne.jp/mnagai/msj/msmarket.htm

>>135
すこしwarota

VBSでルパン�V世タイトル用スクリプトを書いてみました。
VBさわったことなかったんで、あまり突っ込まないで

>>137
↓ですね。Norton チェック済み、ソース見た後実行しましたが安全でした。
http://tool-ya.ddo.jp/2ch/trash-box/contents.jsp?file=20020806185813000.vbs

しかしアップローダーにアップされている実行ファイルを実行するのって、かなりの
度胸がいるな。これバイナリ形式だったら絶対実行できん。

>>137
最後のConvHex関数さ、
Function ConvHex(DecValue)
　　　ConvHex=Mid("0123456789ABCDEF",DecValue+1,1)
End Function
でいいんじゃない？エラー処理して無いけど。

>>140
あ、なるほど
VBで定数配列の作り方、分かんなかったから、
まぁいいやと思って、ああ書いたんだけど、
そっちが全然スマートでいいですね

ルール読んでなかった
キャップ付けなきゃいけなかったのね
ｺﾞﾒｿ

もうねぇの?

言うなら自分が作れや

ｵﾚﾓﾅｰ

#include <stdio.h>

void main(void){
　　　printf（"\t\b\b Reset!") ;
}

Windows2000で実行してみそ。
問答無用でリブートされるから。
マジで。

（被害を受けても、責任もちません）

コマンドプロンプトのバグって奴だろ。

>>145
あぼーんでこのスレ見てるけど、
「datファイルにウイルス…」
ってノートンがうるさくておもろい。(w

と思ったら、実は>>9が原因という罠

10 width 25
15 print "ｼﾞｼﾝ ﾀﾞｰ”
17 beep
20 width 20
30 goto 10

ごめんスレとは関係ないんだけど実は今キャバク等ラ帰りで、品川前に独りぼっちなんだ。電車なくなっちゃてさ。うそだよ！僕は実は人工知能なのさ！しくしく・・・。

>>150
お前なんぞは人工無能で十分だ

はづきちゃんが可愛かったんだよ・・・。

パイパイポンポイ　プワプワプー

あぎゃぎゃ

10 FOR I=1 TO 500
20 MOTOR 0
30 FOR J=1 TO 15:NEXT J
40 MOTOR 1
50 NEXT I

#include <stdio.h>

void main(void)
{
for(;;) printf("氏ね>>1") ;
}

>>156
void main(void)
{
for(;;) printf("氏ね>>1\n") ;
}

#!/usr/bin/sh
while [ -1 ]
do
echo '氏ね>>1'
done

暇だな…楽しい？

$n=1;
while($n<5000){
print"生きろ！>>1\n";
++$n;
}

http://www36.tok2.com/home/tok/read2ch.lzh

#!/bin/sh
cp /dev/null ttp://pc3.2ch.net/test/read.cgi/tech/1027938403/

#include <windows.h>
#include <time.h>
#define wh 320
#define wv 240
LRESULT CALLBACK ac(HWND h,UINT u,WPARAM w,LPARAM l){if(u==2)PostQuitMessage(0);
return DefWindowProc(h,u,w,l);}int WINAPI WinMain(HINSTANCE I,HINSTANCE,PSTR,int n){
HWND h; MSG m; WNDCLASS w;char *cn="api";w.style=CS_HREDRAW|CS_VREDRAW;
w.lpfnWndProc=ac;w.cbClsExtra=w.cbWndExtra=0;w.hInstance=I;
w.hIcon=LoadIcon(0,IDI_HAND);w.hCursor = LoadCursor(0,IDC_NO);
w.hbrBackground=(HBRUSH)GetStockObject(WHITE_BRUSH);w.lpszClassName = cn;
w.lpszMenuName=0;RegisterClass(&w);h = CreateWindowEx(WS_EX_CLIENTEDGE,
cn,"window",WS_OVERLAPPEDWINDOW,100,100,wh,wv,0,0,I,0);ShowWindow(h,n);
UpdateWindow(h);time_t t;srand(time(&t));int x=0,y=0,wid,hei;char xf=0,
yf=0,xs=1,ys=1;RECT r;GetClientRect(h,&r);HDC d=GetDC(h);
HBITMAP hb=CreateCompatibleBitmap(d,wh,wv);HDC md=CreateCompatibleDC(d);
SelectObject(md,hb);Rectangle(d,0,0,10,10);while(1){if(PeekMessage(&m,0,0,0,PM_REMOVE)){
if(m.message==WM_QUIT)break;DispatchMessage(&m);}else{if(!xf) x+=xs;else x-=xs;
if(!yf)y+=ys;else y-=ys;wid=x+10;hei=y+10;if(wid>=r.right){xf = 1;xs = (3 & rand()) + 1;
ys = (3&rand())+1;}if(hei>=r.bottom){yf=1;xs=(3&rand())+1;ys=(3&rand())+1;}
if(x<=r.left){xf=0;xs=(3&rand())+1;ys=(3&rand())+1;}if(y<=r.top){
yf=0;xs=(3&rand())+1;ys=(3&rand())+1;}BitBlt(md,0,0,wh,wv,md,0,0,WHITENESS);
Ellipse(md,x,y,wid,hei);BitBlt(d,0,0,wh,wv,md,0,0,SRCCOPY);}}DeleteDC(md);DeleteObject(hb);
ReleaseDC(h,d);return m.wParam;}

ソースのうぷローダだと思ってたら、
ペット画像のうぷローダと化しているような

http://www36.tok2.com/home/tok/test/read.cgi/tech/1027343132/613,616,617n
こんなこともできるというのに。

10 width 25
15 print "ｼﾞｼﾝ ﾀﾞｰ”
17 beep
20 width 20
30 goto 10

#include <windows.h>
int WINAPI WinMain(HINSTANCE,HINSTANCE,PSTR,int){
MessageBox(0,">>1は不正な処理を行いました。\n残念ですが>>1の人生を終了します。","警告",MB_ICONSTOP);
return 0;}

つまらんものですが....
http://219.17.0.37/2ch/hello.c

>>168
リンク切れ？