[過去ﾛｸﾞ] 【ｼｬｰﾌﾟ】ポケコン 10:PRINT "SHARP"【ｻﾞｳﾙｽ以外】 (1001ﾚｽ)
上下前次1-新
このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ
977: ◆0ifOH8taNk 2012/02/11(土)13:15 AAS
『過去の自分は赤の他人』
>>976 IFを使わないと、後から見て理解不能なプログラムに化けている危険性も持ち合わせている。。。 2012
978(1): ◆0ifOH8taNk 2012/02/11(土)15:01 AAS
>>972より短いリストのものを作ろうぜ。
入力する数字は0〜65535の整数に限るという条件下で。
979: ◆0ifOH8taNk 2012/02/11(土)15:03 AAS
0〜65535ではなく1〜65535に変更
980(1): 2012/02/11(土)15:05 AAS
埋め立て開始
981: ◆0ifOH8taNk 2012/02/11(土)15:11 AAS
>>980
次スレよろぴく
982: ◆0ifOH8taNk 2012/02/11(土)15:18 AAS
30 GOTO 40+20*(I>=1)
IFは消えたが２文字増えてしまった。。。 2012
※動作未確認
983(1): ◆0ifOH8taNk 2012/02/11(土)15:35 AAS
行番号を1刻みにして
3 GOTO 4+2*(I>>0) にすれば短くなる
984: ◆0ifOH8taNk 2012/02/11(土)15:56 AAS
PC-E500用
TEXTモードにして入力。※動作未確認
1 A$="":I.I
2 I=I/2:A$=CHR$(48.5+I-INTI)+A$
3 G.4+2*(I>=1)
4 P.A$
5 E.
かなり短くなりました (;・｀д・´)
…ってそういう意味じゃぁないかぁ。。。 2012
985(1): ◆0ifOH8taNk 2012/02/11(土)15:58 AAS
ｺﾞﾒﾝ>>983はｽﾙｰしてｗ
986(1): ◆0ifOH8taNk 2012/02/11(土)15:59 AAS
1 A$="":I.I
2 I=I/2:A$=CHR$(48.5+I-INTI)+A$:G.3+(I>=1)
3 P.A$
4 E.
ちょっと訂正です。2012
987: ◆0ifOH8taNk 2012/02/11(土)22:08 AAS
>>985 そのお陰で短くなったやん。
でも、行番号２０の根本的な部分のとこで改良するのは難題だなぁ。。。2012
988: ◆0ifOH8taNk 2012/02/12(日)10:28 AAS
おはヨーグルト
989(1): ◆0ifOH8taNk 2012/02/12(日)11:43 AAS
｢ｺﾝﾁWAIT♪｣
｢…｣
…うゎ〜ｽﾍﾞｯﾀか。。。 2012
990: 2012/02/12(日)14:36 AAS
>>989
きっとWAITで止まってるだけだよ
「WAIT 0」
・・・・・・変化がない。やはりすべｔｔ(ry
991: ◆TFvd9tzKTbxR 2012/02/12(日)15:35 AAS
>>978
とある日本一のお方が更なる短縮方法を導いてくださりました。
しかし、演算処理ではほぼ限界とのことです。
が、、、それでも挑戦してみましょうか！？ 2012
992(1): ◆0ifOH8taNk 2012/02/12(日)15:52 AAS
一番短いプログラムを頼む
993: ◆TFvd9tzKTbxR 2012/02/12(日)16:17 AAS
>>992
>>986の４行目を省く！2012
994(2): ◆0ifOH8taNk 2012/02/12(日)16:31 AAS
そんなプログラムで大丈夫か？
995: ◆0ifOH8taNk 2012/02/12(日)16:41 AAS
>>994
BASICモードにしないと使えないから、最終的にはこうなる↓↓↓
1 A$="":INPUT I
2 I=I/2:A$=CHR$ (48.5+I-INT I)+A$:GOTO 3+(I>=1)
3 PRINT A$
ちょっと解説を加えると、、、
・CHR$は小数切り捨て扱いだから、"0"か"1"になる。
・(I>=1)は成り立てば-1に、成り立たなければ0になるから、2か3になる。
試してないけどね…2012
996: ◆0ifOH8taNk 2012/02/12(日)16:48 AAS
>>994
大丈夫だ問題ない
上下前次1-新書関写板覧索設栞歴
あと 5 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ
ぬこの手 ぬこTOP 0.008s