19/11/21 09:30:35.23 YQl+ziuO.net
そうだ。ここは、数学板だった
まずは、数学の話をする。
数学では(-1)の二乗と1の二乗は同じ値
∵ ドッチも1になるぅ ＼(^o^)／
∵ マイナス同志を掛けるとプラス
さて、BASIC言語のお話に戻すとする
変数aの二乗は、a^2 だ。だから
論理式(A>=B)の二乗は(A>=B)^2 かも
怪しく感じるかも知れんが、直感で
BASICはバカ正直に計算するハズ。
だから>>156の120行目のは
以下の改善で更に万能だ。
【改善前】
120 LET X=A*(A>=B)+B*(A<B)
【改善後】
120 X=A*(A>=B)^2+B*(A<B)^2
trueが1でも、-1でもドッチでもOKだ
【蛇足】
N88-BASICの、REFERENCE MANUAL
では、真は(-1) との旨の記載であった
【蛇足2】
マトモな教科書にはアリエナイ
プログラムです。
お行儀を重視なら、で
ELSEが使えるBASICなら、
120 IF A>=B THEN X=A ELSE X=B
でも、でも、でも、
120 X=A*(A>=B)^2+B*(A<B)^2
の方が短いゼ。ワィの勝ち＼(^o^)／