ひたすら何かのソースコードを公開するスレ

1名無しさん＠お腹いっぱい。
垢版 |
NGNG
なんか、うｐしてくれ
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
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-"
NGNG
あぼーん
19名無しさん＠お腹いっぱい。
垢版 |
NGNG
program HaxaHaxa;
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;
}
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
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. */
NGNG
main(){return system("start http://pc.2ch.net/unix/index.html#3");}
NGNG
/*
　* 重複だろ。
　*
　* みんなでCのコードを1行ずつ書いていくスレ
　* http://pc.2ch.net/test/read.cgi/unix/1005032504/
　*
　*/
NGNG
//いやいや EXEC=C言語でなくても
//SYS001 DD *
いいんだろう。
/*
NGNG
カケ "オマエモナー"
NGNG
% んじゃ
% こんなんでも
% いいわけ？
NGNG
-- いいんでないかい？
NGNG
(* ここはこれ以降コメントで会話するスレとなりますた。 *)
NGNG
# >>30のコメント形式は
# なに？
# はじめてみた。
NGNG
-- vhdl
NGNG
; >>32
; psじゃないのか？
NGNG
( ps は % だろ? )
NGNG
-- lingo も
-- この形式でつ
NGNG
<!-- http://infoserv.ics.es.osaka-u.ac.jp/public/netnews-archive/FJ.ARCHIVES/fj.archives.documents/comments-in-computer-languages -->
NGNG
# うっかりコメントからはみ出したら
# どうなりますか？
NGNG
' >>37
' あは、既にあるのか。
NGNG
" (´-`).｡ｏＯ(うっかりって...) "
NGNG
$$ そりゃコメントからはみ出れば
$$ コンパイルエラーになる罠
42名無しさん＠お腹いっぱい。
垢版 |
NGNG
＃いんcるで　＜stぢお.h＞

いんt　まいn（）
{
pりんtf（"＞＞１死ねよ"）
}
NGNG
>>42
なんか、カンドーしたっす。
NGNG
{ >>45 どうよ？ }
45名無しさん＠お腹いっぱい。
垢版 |
NGNG
begin
　　なんともねーよ
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);
}
NGNG
ここまでだれもhello world 書かないッつーのも不自然だな。
project: (('Hello'))

class 'Hello' specializing 'Console':
[
goal:-
writeln("Hello World!").
]
48名無しさん＠お腹いっぱい。
垢版 |
NGNG
/*（・∀・）
/*
NGNG
>>47
それは何？

ついでだ、漏れも
Pervasives.print_string "Hello World!\n";;
NGNG
いろいろな言語でHello world スレは、どこかにあったような...
51名無しさん＠お腹いっぱい。
垢版 |
NGNG
Linux板だよ。

 いろんな言語で「Hello World」だ。ゴラァ
 http://pc.2ch.net/test/read.cgi/linux/986981055/
NGNG
向こうのスレのこれ笑った
http://pc.2ch.net/test/read.cgi/linux/986981055/22
53名無しさん＠お腹いっぱい。
垢版 |
NGNG
# Hello World
#
# 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.
57名無しさん＠お腹いっぱい。
垢版 |
NGNG
<html> </html>
NGNG
rem そういえばこんなのもあったなぁ
NGNG
スレタイが「ソース "コード"」なので、
「オリバーソース」だの「おたふくソース」だのといった
お決まりのギャグが使えない罠。
60itoa()
垢版 |
NGNG
,[>+<-]-[>[>>+>+<<<-]>>>[<<<+>>>-]<[-[-[-[-[-[-[-[-[-[>+<[-]]]]]]]]]]]>
[-<<+<----------[>>+>+<<<-]>>>[<<<+>>>-]<[-[-[-[-[-[-[-[-[-[>+<[-]]]]]]]]]]]>]<<<]
61名無しさん＠お腹いっぱい。
垢版 |
NGNG
>>59

オリバーソースだのおたふくソースだの言おうとしたのか？（藁）
62名無しさん＠お腹いっぱい。
垢版 |
NGNG
伝説の「詰めC言語」再びかと思ったよ。

NGNG
BASIC 1行プログラムのほうが好きだな
NGNG
#!/bin/dqn
WTO "hello?"
END
65名無しさん＠お腹いっぱい。
垢版 |
NGNG
main;
()!*.*
}
NGNG
>>61
とっておきのギャグなんだが、
どうしてもと言うなら譲ってあげてもいいよ
NGNG
あぼーん
68名無しさん＠お腹いっぱい。
垢版 |
NGNG
<tr>
age<br><br>
</tr>
69名無しさん＠お腹いっぱい。
垢版 |
NGNG
>>64
日○情報のQ言語？
つーか日○関係者だろ！(w
NGNG
世界最小のソース
awk '1' filename

NGNG
sed '' filename
72名無しさん＠お腹いっぱい。
垢版 |
NGNG
>>71
ほんとや(o●o);

73名無しさん＠Ｅｍａｃｓ
垢版 |
NGNG
"こう見えても、Smalltalkのコメントなわけだが。".
NGNG

"ごめ。あげちった。".
NGNG
>>73
40で既出
76名無しさん＠お腹いっぱい。
垢版 |
NGNG
localhost [~]$ cat /usr/bin/uma.sh
#!/bin/sh
/usr/bin/uma.sh
localhost [~]$
NGNG
(~/.bashrcの末尾に追加)
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
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;

};
82ａｌｏч
垢版 |
NGNG
　　　　　　　　　　　　　　　　　　　　　　{
　　　　　　　　　　　　　　 ;0 uJnfaJ
　　　　　 ;(,,i plJoM ollaH,,)tfu!Jd
　　　　　　　　　　　　　　　　　　　　　　}
　　　　　　　　　　　　　　　　　()u!ew fu!
　　　　　　　　　　,,ч'o!pfs,, apnl⊃u!#
NGNG
文字化けかと思った
NGNG
文字化けじゃなかったのか！！！！！！！！！
85名無しさん＠お腹いっぱい。
垢版 |
NGNG
#include <stdio.h>

main()
{
for(;;){
puts(">>1 カエレ");
}
}
NGNG
>>85はgettext位使えるようになれ。
NGNG
煽りも国際化を考慮しなきゃならないとは（ｗ
NGNG
gettextを使えるようになってもpoファイルは日本語のくらいしか作れない罠
89名無しさん＠お腹いっぱい。
垢版 |
NGNG
このくらいはほしいよね。

ja
ja_2CH
ja_KANSAI
ja_TOUHOKU
NGNG
tcshのゴミportsじゃないんだから(苦笑
NGNG
sub 2ch
print "糞スレたてた>>1さん";
NGNG
あぼーん
NGNG
>>15-17
もしかして、ポケコン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てみる（藁
NGNG
/*-
* hello.c - the first C programme.
*
*@(#)hello.c1.1 (Berkeley) 01/01/70
*/

#include <stdio.h>

/*ARGSUSED*/
int
main (argc, argv)
int argc;
char **argv;
{
(void) printf("Hello, world!\n");

return 0;
}
NGNG
#!/usr/bin/sh
NUM=1
do
print "Hello, world! \>\>%d\n" ${NUM}
NUM=`expr ${NUM} + 1`
done
NGNG
sh: line 3: syntax error near unexpected token `do'
sh: line 3: `do'
NGNG
>>1->>109 > /dev/null
111あぼーん
垢版 |
NGNG
あぼーん
112名無しさん＠お腹いっぱい。
垢版 |
NGNG
System.out << "1-111>> \u3358";
NGNG
rm -f >>110
NGNG
kill -KILL >>112
115あぼーん
垢版 |
NGNG
あぼーん
新着レスの表示
レスを投稿する

5ちゃんねるの広告が気に入らない場合は、こちらをクリックしてください。
ニューススポーツなんでも実況