Petitverse

[応用問題]
表示画面には「コンソール画面だけ」を使って

ACLS
LOAD "GRP0:SYS/ DEFSP.GRP",FALSE

を実行した時と「同じ見た目の画面」になるプログラムを書きなさい。

必要な命令:LOAD命令、CHR$()関数、PRINT命令
条件：特に無し
なお、プログラム終了時のフォルダ名とカーソル点滅表示は当然無視してはいけないので
プログラムが終了しない何らかの方法を講じること。
・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・

素直でまともな事ってのが刺さりましたけど
私は何時だって腐マジメですよ？
捻りを加えないと手抜きしてるみたいで、相手に申し訳ない気がして嫌なんですけど
嬉しく思ってくれたなら私も嬉しいので
ホラムーンさんに「だけ」はド直球ストレートなコメントを心がけますね。
あと、上の問題にちょっと不備があったので修正加えました。

・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・
自分でやってみて不備があったので問題文を少し修正しました（必要な命令）
フォント用のグラフィック画面（-1）はGCOPY命令の引用元には使えるけど
GPAGE命令での編集対象には出来ないのコロっと忘れてました。
どっちかっていうとシステムで設定されている文字コードとかの決まり事を把握するのがメインの問題でしたねコレ。
自分でも答えがどうなるか分かんない問題考えるの楽しい。

O(nlogn)の答えはすぐに思い付いたけど…
頑張ればO(n)で解けそう。連想配列が欲しい。
っていうか理論上はO(nlogn)だけどボクの実装力だとO(n^2)になりそう。
プチコンは文字列の比較ができたりデフォルトの命令や関数が充実してるので思ったより楽に解けそう。

ろどにさんの問題の答え

acls

var guide$[2]
guide[0]="もじれつをうちこんでね"
guide[1]="もういっかい！"

var in$[2]
var count[2,65536]
var i
for i=0 to 1
linput guide[i];in$[i]
var l = len(in$[i])
var j
for j=0 to l-1
inc count[i,asc(in$[i][j])]
next
next

var ans=#yes

for i=0 to 65535
if count[0,i]!=count[1,i] then
ans=#no
break
endif
next

if ans==#yes then
print "YES"
else
print "NO"
endif

私もろどにさんの問題の解答例を

LINPUT A$
LINPUT B$
IF LEN(A$)-LEN(B$) THEN ?"NO":END
WHILE LEN(A$)
R=INSTR(A$,B$[0])
IF R==-1 THEN ?"NO":END
A$[R]=""
B$[0]=""
WEND
?"YES"

O(n^2)

簡単に説明すると素因数分解とは、ある数を「素数のかけ算」で表現する操作のことです。
例えば、60なら素数である2、3、5を用いて「2×2×3×5」で60が表現できます。

なんか忘れそうなので解答例を乗せておきます。

[回答例1]
各文字をASCで数値配列化してソートし比較する解法。
並び替えて一致するならばソートした結果は同じです。
なおA$,B$の長さが異なる場合はその時点で省きます。

ちなみに、今回文字列の長さをNとすると
ソートにかかる時間(計算量)はNlogNにほぼ比例します。
これをO(NlogN)と書いたりします。

全体を見てみると
文字列を数値配列化するのがO(N)
ソートがO(NlogN)
比較がO(N)
なので一番大きいNlogNの影響をうけ
全体の計算量はO(NlogN)です。
最大でもN=1000程度なので、一瞬で答えが出ます。

[注釈]logNってなに？
↑2^(logN) = N
ただし^は「〜乗」を意味する

[中学生的な指摘]
2^2=4, 2^3=8 だが
例えばlog5ってどうなるんだ、そんな値は存在しないのでは
↑実は指数は正の整数から実数に拡張できる。2^2.3219≒5
ようするにlog5≒2.3219

[高校生的な指摘]
対数の底は2とは限らないのでは？
↑うるせえ黙れ説明が面倒だ、どのみち比例するから大して問題はない

[回答例2]
A$について文字の種類ごとに出現回数を記録し、それとB$を比較する解法。
並び替えて一致するというのは、言いかえると
「同じ種類の文字が同じ回数だけ出現する」
ということです。これを判定します。

プチコンの文字はUTF-16なので、
65536個の要素をもつ配列を作ればすべての種類の文字の出現数を記録できます。

比較には65536回のループ(プチコンだと少し重い)が必要そうな気がしますが、
工夫するとN回のループで可能です。

全体の計算量はO(N)。たぶんこれが一番速いと思います(あまり変わりませんが)

lognをもうちょっと分かりやすく解説すると簡単な話｢nの桁数｣です。
プログラミングの世界でlognと言ったら大体底が2、つまり｢nを２進数で表したときの桁数｣を意味します。(ちなみに数学の世界では自然対数(説明は難しいので省略)電気数学の世界では常用対数(nを10進数で表した桁数)を意味します。)
２進数で表した桁数は10進数で表した桁数の大体3倍ぐらいなので、どちらで考えてもそんなに差がないので気にするなと言うことです。

ソートとは
数字を小さい順(もしくは大きい順)に並び替えること。
プチコンではデフォルトでSORTやRSORTというソートする命令が用意されています。