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

1名無しさん＠お腹いっぱい。
垢版 |
NGNG
なんか、うｐしてくれ
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
あぼーん
NGNG
まざーぐーす
NGNG
[user@localhost user]& rm -rf
NGNG
$ diff -c if_bge.c if_bge.c.org
*** if_bge.c Sat Nov 29 15:01:10 2003
--- if_bge.c.org Sat Nov 29 14:28:40 2003
***************
*** 164,171 ****
"SysKonnect Gigabit Ethernet" },
{ ALTIMA_VENDORID, ALTIMA_DEVICE_AC1000,
"Altima AC1000 Gigabit Ethernet" },
- { ALTIMA_VENDORID, ALTIMA_DEVICE_AC1001,
- "Altima AC1001 KUROUTO-SIKOU Gigabit Ethernet" },
{ ALTIMA_VENDORID, ALTIMA_DEVICE_AC9100,
"Altima AC9100 Gigabit Ethernet" },
{ 0, 0, NULL }
--- 164,169 ----

akoba@balthasar$ diff -c if_bgereg.h if_bgereg.h.org
*** if_bgereg.h Sat Nov 29 14:59:58 2003
--- if_bgereg.h.org Sat Nov 29 14:29:03 2003
***************
*** 1846,1852 ****
*/
#define ALTIMA_VENDORID 0x173b
#define ALTIMA_DEVICE_AC1000 0x03e8
- #define ALTIMA_DEVICE_AC1001 0x03e9
#define ALTIMA_DEVICE_AC9100 0x03ea

/*
--- 1846,1851 ----
119名無しさん＠お腹いっぱい。
垢版 |
NGNG
なんかls -dの使い方が分かんないんだよね

#!/usr/bin/ruby
require 'stringio'

dirs = StringIO.new
Dir.foreach(Dir.pwd) do |ech|
dirs.puts(ech) if test(?d, ech) && /\A\.\.?\z/ !~ ech
end
IO.popen('column', 'w'){|output| output.print(dirs.string)}
120名無しさん＠お腹いっぱい。
垢版 |
NGNG
RETURN 4 [FD 200 LT90]
121名無しさん＠お腹いっぱい。
垢版 |
NGNG
END
122名無しさん＠お腹いっぱい。
垢版 |
NGNG
display dialog "エラーが発生しました。そんなことよりさいたま！"
123名無しさん＠お腹いっぱい。
垢版 |
NGNG
instr 1
a1 oscil 8000,p5,1
outa1
endin
124名無しさん＠お腹いっぱい。
垢版 |
NGNG
聞いて下さい！ねらーを過剰に煽っていた電波野郎が
こともあろうか、自分のサイトのＴＯＰページに罠をしかけて
閲覧者のブラウザを壊す？暴挙を行っているのです。

こちらは、荒しもせず見ているだけなのに。（コンテンツ自体無いので荒せないのですが）
識者の方、罠の分析と解除方法、本人への制裁処置を教えて下さい！

生ＩＰで閲覧した被害者は、爆弾の直撃喰らってどのサイトもつなげなくなるそうです。
これは、「電子計算機機能妨害罪」でれっきとした犯罪行為だと思います。
とりあえず、どのサイトにもつなげなくなってしまった可哀相なねらー達を救って下さい！
人によっては、毎回初回はアクセスエラーになって二度目のリロードで見られるという方もいる模様です。

技術スキルの高い方、法的な知識をお持ちの方の意見をお願いします。

◆↓自慢の公式サイト(串必須、生ＩＰでの閲覧は危険！）
http://kitaq.web-zz.com/
NGNG
#!/usr/bin/perl

サンフランシスコ（ロイター）――ソフトウェア企業の米オラクルは1月12日、
ライバル企業である米ピープルソフトとの戦いを継続し、投資からの支持を強
化するために、Jeff Henley氏を会長として指名した。現会長兼CEOの
Larry Ellison氏はCEOの職を続投する。

Henley氏は、同社で13年間にわたりCFO（Chief Financial Officer）を務めて
きた人物だ。

ソース：
- Oracle names Jeff Henley chairman（CNN／Reuters）
htt://money.cnn.com/2004/01/12/technology/oracle.reut/index.htm

news+からコピペしてきたし
exit;
NGNG
use strict;
NGNG
000000*　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
000000　EXEC-SQL　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
000000　　　SELECT　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
000000　　　　　GCD,　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
000000　　　　　SCD,　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
000000　　　　　UNUM,　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
000000　　　　　NAMEK　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
000000　　　　　JUSHOK,　　　　　　　　　　　　　　　　　　　　　　　　　　　　
000000　　　　　KATAK　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
000000　　　FROM　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
000000　　　　　FU_ATENA_TBL　　　　　　　　　　　　　　　　　　　　　　　　　　
000000　　　WHERE　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
000000　　　　　GCD　　 =　 :ATENA-REC.GCD　　　AND　　　　　　　　　　　　　　
000000　　　　　SCD　　 =　 :ATENA-REC.SCD　　　　　　　　　　　　　　　　　　　
000000　END-EXEC.　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
000000*　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
NGNG
my $data = <<__DATA__;
新着レスの表示
レスを投稿する

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