はじめに

先日ツイッターでバズってたつぶやきがあり、自分もヒマだったのでIchigoJam BASIC版をリプライしてました。

IchigoHJam webで書きました。https://t.co/QiR59r5cwR pic.twitter.com/woC2CZn10P
— fujita nozomu (@fujitanozomu) August 2, 2022

今回の記事はそれのワンライナー版となります。

実際のコード

H=15:LET[0],"ﾄﾞﾄﾞ","ｽｺ":FORE=0TO1:H=2*H&4095|RND(2):?STR$([H&1]);:E=H=1911:NEXT:?"ﾗﾌﾞﾁｭｳﾆｭｳ♥

IchigoJam BASICのコンソールへ入力すると即座に実行される予定です(面倒なので未確認)。IchigoJam webでも実行できます(これはさすがに確認済)。

N88-BASIC等の高機能なBASICではWHILE ～ WENDが使用できるためループ部分を簡潔に書けそうな気がしますが残念ながらIchigoJam BASICにはその機能はありません。仕方がないのでFOR ～ NEXTを変な使い方をして代用しております。

おわりです。