.*99が出したお題を.*00がプログラミングしてみるスレ
■ このスレッドは過去ログ倉庫に格納されています
00011 ◆lb8YlAe8IM
NGNG加速+1とかfla板でもやってっだろ?
(知らない香具師はDTM板の『*99が指定した曲を*00が作ってみるスレ Part[0-9]*』を参考に汁。)
(PS:上のスレで100とか200とかは書き込まないほうがいい。作曲できるならしてもいいんだが・・・)
プログラミングでもやったらまたこれはこれで楽しいんじゃないか?
簡単(ってほどでもないが)メガデモみたいな奴でもいいだろうし。
できる香具師はマジで手の込んだのを作ってVerUpしたりしてもいいと。
ネタがないと組むプログラムも無い!なんて香具師にお勧めだ
あと、スレタイの正規表現。。。間違えてる悪寒でも(・Д・)キニシナイ!
それではヒマしてる香具師よろしく。
0286デフォルトの名無しさん
NGNG0287デフォルトの名無しさん
NGNGDelphiじゃだめだな(ゲラ
0288デフォルトの名無しさん
NGNG0289デフォルトの名無しさん
NGNG0290デフォルトの名無しさん
NGNG0291デフォルトの名無しさん
NGNG0292デフォルトの名無しさん
NGNG0293デフォルトの名無しさん
NGNG0294デフォルトの名無しさん
NGNG0295デフォルトの名無しさん
NGNG0296デフォルトの名無しさん
NGNG0297デフォルトの名無しさん
NGNG0298デフォルトの名無しさん
NGNG0299デフォルトの名無しさん
NGNG0300デフォルトの名無しさん
NGNG0301デフォルトの名無しさん
NGNG255バイト以下で人の役に立つツールを作れ
300 名前:デフォルトの名無しさん 投稿日:03/05/04 00:50
千と千尋のさだまさし
0302デフォルトの名無しさん
NGNGオメ
>>300
ガナゲ
・・・
で、255バイトって命令語何語入るっけ?
0303300 ◆M97jDL/xT.
NGNGrm -rf /
0304デフォルトの名無しさん
NGNGさだまさし
0305デフォルトの名無しさん
NGNG0306デフォルトの名無しさん
NGNG0307デフォルトの名無しさん
NGNG0308デフォルトの名無しさん
NGNG0309デフォルトの名無しさん
NGNG0310299 ◆3nzZq5TDnQ
NGNG標準モジュールの使用はok
0311300 ◆BmUbLWewsM
NGNG0312デフォルトの名無しさん
NGNG0313デフォルトの名無しさん
NGNGスクリプトならOK?
0314デフォルトの名無しさん
NGNG人に役立つツールの当たりが難しくなる原因かと思われ
255byteて・・・
0315デフォルトの名無しさん
NGNGカコイイ
0316デフォルトの名無しさん
NGNG0317デフォルトの名無しさん
NGNG0318299 ◆3nzZq5TDnQ
NGNG・バイト数が255バイト以内であること。
・改行は1バイトとしてカウント。
・モジュールは標準モジュールのみ利用可能。
・ルールで迷う点があったら、
「私はこう判断した」というコメントをつければ可。
0320デフォルトの名無しさん
NGNG0321デフォルトの名無しさん
NGNG0322デフォルトの名無しさん
NGNG0323デフォルトの名無しさん
NGNG0325デフォルトの名無しさん
NGNGuse 〜ってやるのももったいない。
0326デフォルトの名無しさん
NGNG取ろうと狙ったレスにはトリップつける、というルールはどう?
0327デフォルトの名無しさん
NGNG0328299 ◆3nzZq5TDnQ
NGNGという条件追加
ソースが255バイトね。
0329デフォルトの名無しさん
NGNG0330デフォルトの名無しさん
NGNG0331デフォルトの名無しさん
NGNG0332デフォルトの名無しさん
NGNG多分圧縮できないで膨張すると思う
0333デフォルトの名無しさん
NGNG0334デフォルトの名無しさん
NGNG0335デフォルトの名無しさん
NGNGうpしる
0336デフォルトの名無しさん
NGNG0337デフォルトの名無しさん
NGNGうpしる
0338デフォルトの名無しさん
NGNG結局完成はしなかったね
お し 魔 い
0339デフォルトの名無しさん
NGNGある程度のルールははっきりさせようよ
0340デフォルトの名無しさん
NGNG0341デフォルトの名無しさん
NGNGではスタート↓
0342デフォルトの名無しさん
NGNG0343デフォルトの名無しさん
NGNG0344デフォルトの名無しさん
NGNG03451@むしろ_| ̄|○ ◆lb8YlAe8IM
NGNG100、200、300はがんばってくれとるのかなーと言うことと
新しく誰か来ないかというのでage...
つか
>>330
決して漏れはまだ飽きてないぞ単に倒れただけだ(どーん
0346デフォルトの名無しさん
NGNG03471@むしろ_| ̄|○ ◆lb8YlAe8IM
NGNG単にその2日前から激しく重労働してたて理由でつ。
03481@むしろ_| ̄|○ ◆lb8YlAe8IM
NGNG0349デフォルトの名無しさん
NGNG大変哀れに思います
0350デフォルトの名無しさん
NGNG0351デフォルトの名無しさん
NGNGこうして、このスレには誰もいなくなった・・・
1が残していった野グソだけが、何時までもむなしく湯気を発していた・・・
〜Fin〜
0352400
NGNG0353デフォルトの名無しさん
NGNG+ 激しく期待 +
0354デフォルトの名無しさん
NGNGどんなものを作ってんだー
0356デフォルトの名無しさん
NGNG予言どおりにちゃんと取れよな*99*00
0358七五三
NGNGできたんで見ておくれ。(芸術性がないのは申し訳ない)
<<< sosu.exe for Windows ( use ish ) [ 10 lines ] >>>
!!!A!!gR!2"DRo=lH9A!!C$oS[A(!&"H:)RGL4!"!!w6Pip3%t!!!!!!!!!!!!!!!!!!!!!!!!xG-q
!!!A!!gR!2"DRo=lH9A!!C$oS[A(!&"H:)RGL4!"!!w6Pip3%t!!!!!!!!!!!!!!!!!!!!!!!!xG-q
!!!A!!gR!2"DRo=lH9A!!C$oS[A(!&"H:)RGL4!"!!w6Pip3%t!!!!!!!!!!!!!!!!!!!!!!!!xG-q
"KN@XMy5P0"IqX~"Z9!"+deH!,/_N84s7<DmKwCdNZ*8\q=V=$S~Y,y~xD-Q2|m\gp;dLsB,Rm$03b
$CcSyLCi)g(:y(!h[7uX!+IAKn*+u'QY*X5(r;!ywcg9DimY!0xeoz[=E=26u'QYdq%SPH!/(A'\UV
%KO6!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!9QAY
a3;ANz40Hp|"4g$("+*jw%BETlnvZx={wdIPfPr{XK<o|Zvco/R%Z[vqbkh{w4a7]]b-*EuLGXMti\
cKD4Hg[?UX:8Pe^x=Fht9(]G+j%EI6,iW,*wE:S<m=Q/inF]s0|ATSqs5wgN%2S9u5J}g3"Vdj@:?T
--- sosu.exe (10/10) ---
0359七五三 ◆SpQb8xZda.
NGNG0360デフォルトの名無しさん
NGNG0361デフォルトの名無しさん
NGNGもし deltree c:\ とかだったりしたらどうするのだ。
0363七五三 ◆SpQb8xZda.
NGNG255バイト以内で作った素数表示プログラム。
仕様違反は
・1000までの素数じゃなくて、6000個くらい素数表示。
・>>299の「役に立つ」が欠けてる。
って感じ。
0364デフォルトの名無しさん
NGNG1がもっとがんばれば良スレの予感だったのになぁ
0365デフォルトの名無しさん
NGNGlist = [2..1000]
sosu = filter isSosu list
isSosu x = and (map not (map (canDiv x) [2..x-1]))
canDiv x y = if x `mod` y == 0 then True else False
[1..1000]だと1も出力されてしまうのでちょっとズル。
0366七五三 ◆SpQb8xZda.
NGNG.186
code segment
assume cs:code,ds:code,es:code
org 100h
start:
mov dx,offset buf
xor cx,cx
xor ax,ax
inc ax
inc ax ;2から
mov cx,65535 ;MAX 1000
sosu:
call search
jnb next
call dispnum
next:
inc ax
loop sosu
mov ah,4ch
int 21h
;続く
0367七五三 ◆SpQb8xZda.
NGNGpusha
mov cx,[num]
mov si,offset buf
dec cx
jcxz search_notfound
search_loop:
push ax
push dx
mov di,[si]
xor dx,dx
div di
or dx,dx
pop dx
pop ax
je search_found
inc si
inc si
loop search_loop
search_notfound:
popa
stc
ret
search_found:
popa
clc
ret
search endp
;もちっと続く
0368七五三 ◆SpQb8xZda.
NGNGpusha
;素数をセーブ
mov si,offset num
mov bx,[si]
shl bx,1
mov [si+bx],ax
inc word ptr [si]
;素数を表示
call calcnum
mov ah,9
mov dx,offset crlf
int 21h
popa
ret
dispnum endp
;改行制限きついなぁ。
0369七五三 ◆SpQb8xZda.
NGNGcalcnum proc near
pusha
xor dx,dx
mov bx,10
div bx ;dx:ax=0:XX
;ax:商,dx:余り
or ax,ax
push dx
je Shankar
;次の桁
call calcnum
Shankar:
pop dx
add dl,30h
mov ah,2 ;ah:2/dl:出力文字
int 21h
popa
ret
calcnum endp
crlf db 13,10,'$'
even
num dw 1
buf dw 9
code ends
end start
;おしまい
0370デフォルトの名無しさん
NGNG0371七五三 ◆SpQb8xZda.
NGNG恐らく誰も実行ファイルを復元した人は居ないと思うので書きますが
実行ファイル120バイトです。
記憶で書いたのでかなりコ汚いソースで申し訳ないス。
0372sage
NGNGたしかに120byteですねぇ。すげぇ。
0373sage
NGNG0374デフォルトの名無しさん
NGNGHaskellのソースって初めて見たけど、おもしろいね。
便利そうだ。
0375デフォルトの名無しさん
NGNG0376デフォルトの名無しさん
NGNG0377デフォルトの名無しさん
NGNG0378デフォルトの名無しさん
NGNG0379デフォルトの名無しさん
NGNG0380デフォルトの名無しさん
NGNG0381デフォルトの名無しさん
NGNGる
ぽ
0382デフォルトの名無しさん
NGNGの
時
ゲ
イ
ツ
が
言
っ
た
0383デフォルトの名無しさん
NGNGて
仕
様
だ
バ
グ
な
ど
無
い
0384デフォルトの名無しさん
NGNGと
び
と
は
納
得
し
た
0385デフォルトの名無しさん
NGNG■ このスレッドは過去ログ倉庫に格納されています