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

1名無しさん＠お腹いっぱい。
垢版 |
NGNG
なんか、うｐしてくれ
2名無しさん＠お腹いっぱい。
垢版 |
NGNG
main()
3名無しさん＠お腹いっぱい。
垢版 |
NGNG
{
4名無しさん＠お腹いっぱい。
垢版 |
NGNG
return main();
}
NGNG
あぼーん
6名無しさん＠お腹いっぱい。
垢版 |
NGNG
};
7名無しさん＠お腹いっぱい。
垢版 |
NGNG
void
NGNG
seq void main () {
par {
new main();
new main();
}
}
9名無しさん＠お腹いっぱい。
垢版 |
NGNG
PROGRAM UNKO
WRITE(*,*)'うんこ'
STOP
END
NGNG
rtnval(int c)
{
if (c == 1) {
return 1;
} else {
return 0;
}
}

11名無しさん＠お腹いっぱい。
垢版 |
NGNG
/*1は死んでね*/
NGNG
#include <stdlib.h>
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 ：<
NGNG
>>13
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
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
あぼーん
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__;
NGNG
#include "/dev/tty"
NGNG
>>128

my $data = <<__orz__;

に見えた
131knk
垢版 |
NGNG
i=i++;
132名無しさん＠お腹いっぱい。
垢版 |
05/03/01 14:11:39
i.incremental_add(1)
133名無しさん＠お腹いっぱい。
垢版 |
05/03/15 00:41:32
@s = %w(
http://www.bulldog.co.jp/ ブルドックソース株式会社 東京都
http://www.kagome.co.jp/ カゴメ株式会社 愛知県
http://www.otafuku.co.jp/ オタフクソース株式会社 広島県
http://www.ikari-s.co.jp/ イカリソース株式会社 大阪府
http://www.kikkoman.co.jp/ キッコーマン株式会社 千葉県
http://www.oliversauce.com/オリバーソース株式会社 兵庫県
http://www.sky-net.or.jp/toshi/ カープソース 広島県
http://www.maruki-su.com/ 株式会社　川上酢店 愛知県
http://www.kozima.co.jp/ 小島食品製造株式会社　愛知県
http://www.komi.co.jp/ コーミ株式会社 愛知県
http://www.sankyohikari.co.jp/ サンキョーヒカリ 愛知県
http://www.junmaru.co.jp/ 株式会社　純正食品マルシマ 広島県
http://www.papaya-sauce.co.jp/ パパヤソース本舗 大洋産業株式会社 京都府
http://www.takahashisauce.com/ 高橋ソース株式会社 埼玉県
)
05/03/15 09:46:50
#広島と愛知が多いな
135名無しさん＠お腹いっぱい。
垢版 |
2005/03/29(火) 20:59:17

理由があります
136名無しさん＠お腹いっぱい。
垢版 |
2005/04/20(水) 08:35:41

オタフクが首位に…ユニオン買収でブルドッグ抜く

http://www.zakzak.co.jp/top/2005_04/t2005041915.html
2005/04/23(土) 13:19:09
program sample(output);
begin
writeln("abcde")
end.
2005/11/21(月) 21:34:11
10 REM　既出のような気もする
100 REM　*N88-BAASIC(86)
110 REM　Hello World 表示プログラム Ver1.00
120 REM　
130 PRINT "Helio World"
140 goto 130
150 REM 我ながらつまらんソースですね．ごめんなさい．
2005/11/21(月) 21:36:11
　げ・・・・BASICがBAASICになってるし・・・・．
　マウスのコードで吊ってきます．
2005/12/18(日) 05:09:03
continue
141お願いします
垢版 |
2006/11/07(火) 12:55:23
c言語で入力された英文から単語を抜き出して表示するソースを持っておられる方は載せてください!
142名無しさん＠お腹いっぱい。
垢版 |
2006/11/07(火) 13:12:26
grep -v [!"#$%&'()]
143半人前
垢版 |
2009/03/08(日) 22:23:56
基本載せま〜す
#include <stdio.h>
main()
{
printf("hello.world");
}

2009/04/13(月) 22:04:13
初めて書いたC言語
#include <stdio.h>
#include <math.h>
#define HZ 60.0
#define MICRO_SECOND 1000000.0
#define COUNT_NUM 1000.0
#define DC_VOLT 100.0
main()
{
printf("%fHz\n",HZ);
printf("%fDC_Volt\n",DC_VOLT);
double d;
d=DC_VOLT*sqrt(2);
printf("%fAC_Max_Volt\n",d);
printf("%fCount\n",COUNT_NUM);
double a,b;
a=1.0/(4.0*HZ);
printf("MAX_TIME=%fu/sec\n",a*MICRO_SECOND);
b=a/COUNT_NUM;
printf("REAL_TIME=%fu/sec\n",b*MICRO_SECOND);
double i;
double x,y,z;
z=b;
for(i=0; i<a; i=i+b){
y=sin(2.0*M_PI*HZ*z);
x=d*y;
printf("time=%f sin=%f volt=%f\n", z,y,x);
z=z+b;
}
}
2009/08/21(金) 21:54:59
{
"俺も"+ANY("何か", "伺か")+"だと思って開いちまったよ"
}
146名無しさん＠お腹いっぱい。
垢版 |
2009/09/13(日) 08:58:41
やめろ、美人がテメエの「お○んこ」の写真を公開するようなことは。

本人は、どうだ欲しいだろとか自己満足してるのかも知れんが。
アホか、やめろゲテモノ出すのは。
2009/09/16(水) 11:19:39
#!/bin/sh
exit
2010/04/22(木) 12:28:21
hoge.com
2010/12/31(金) 16:51:13
無料RPG製作ツール「ロープレジェネレーター」
http://sekisekki.net/index.htm

直感的操作で簡単なゲームが作れます。 簡単に配布可能な状態に出力することができます。
(HSP製のソースコード付きで、スクリプトの知識があれば自由度の非常に高いカスタマイズ
ができます）
他にも仲間預かり機能（100人も）や、仲間の状態/状態異常を細かく設定できたり、
乗り物が作れたり、ゲーム中に画像を差し込んだり、回転やフラッシュなどのエフェクト
なんかも簡単に作れる様です。
移動は矢印キーの他に、キャラがマウスを追っかけたりするとのこと。
戦闘はデフォだとドラクエ系。
他にはオートアクションというのがあってオリジナルシステムの製作に役に立つかも
しれない機能です。これは、マップエディタで設定することで、「マップに入った時・
出た時・一歩歩いた時・戦闘開始前」に自動的に実行されるアクションを設定できる
機能です。
■他にもいろいろ進化中。要望は掲示板へどうぞ。

どんなゲームが作れるかはこれを見れくれ。HSPのカスタマイズはしてないとの事。
「眠られぬ獅子〜序章〜」
http://www.freem.ne.jp/game/win/g02773.html
2012/01/05(木) 18:13:50.82
#!/usr/bin/python
import sys

def gcd(a, b):
while b:
if a < b:
a, b = b, a
a, b = b, a % b
return a

lst = map(int, sys.argv[1:])

try:
a = reduce(gcd, lst)
except TypeError:
pass
else:
for i in lst:
print i / a,
151名無しさん＠お腹いっぱい。
垢版 |
2012/04/13(金) 15:55:56.90
inline void syuriken(int &a, int &b) {
a ^= b;
b ^= a;
a ^= b;
}
NGNG?2BP(111)
void main(void)
{
main();
}
NGNG?PLT(12081)
もう公開しないのか
154名無しさん＠お腹いっぱい。
垢版 |
2017/12/29(金) 10:02:17.57
誰でも簡単にパソコン1台で稼げる方法など
参考までに、
⇒　『宮本のゴウリエセレレ』 というブログで見ることができるらしいです。

グーグル検索⇒『宮本のゴウリエセレレ』

GEXSXU46BT
155名無しさん＠お腹いっぱい。
垢版 |
2018/05/22(火) 04:05:36.00
知り合いから教えてもらったパソコン一台でお金持ちになれるやり方
時間がある方はみてもいいかもしれません
グーグルで検索するといいかも『ネットで稼ぐ方法　モニアレフヌノ』

DGIBW
156名無しさん＠お腹いっぱい。
垢版 |
2024/03/27(水) 20:13:50.92
山上みたいなんが多すぎて誰だろう
157名無しさん＠お腹いっぱい。
垢版 |
2024/03/27(水) 21:03:57.46
おっさんがJK趣味を通じてでしか人とモデルOをアテンド その後パパの会社消えるボールペン使用。
お前のように延期でまだまともな
新着レスの表示
レスを投稿する

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