syat #6141(2008/04/04 19:32 GMT) [ BASIC ] Rating2/2=1.00
1 2 3 4 5
10 cls 20 z$="072 101 108 108 111 044 032 119 111 114 108 100 033" 30 for q = 1 tO 13 40 ? ChR$(vaL(mid$(Z$,Q*4-3,3))); 50 nexT
Rating2/2=1.00-0+
[ reply ]
syat
#6141()
[
BASIC
]
Rating2/2=1.00
BASICは、
<よい>
・大文字小文字は区別されないので、同じアルファベットを2回まで使える。
・PRINT の省略形で ? を使える。
<わるい>
・文字列中のエスケープシーケンスを解釈しない。
・配列を扱う便利機能が皆無。
・文字列を配列解釈できない。
・read & data だと、aが3回出てくるのでダメ。
・関数定義(def fnX) は、定義した時点で f が2回だし、関数名冒頭は fn 固定のため使えない。
・変数は全般的に、設定と参照の1回ずつしか使えない。
例えば、インクリメントがないので n = N + 1 とすることになるが、
するとその変数は参照できない。
これはマゾプレイw
答えは平凡なものになったけど、結構長いこと試行錯誤しました。
乱数とかpokeの使用を考えたくらい(笑)
全角半角変換する KACNV$ 関数があるけれど、#1872 で既出なので回避。
Rating2/2=1.00-0+
[ reply ]