福野泰介の一日一創

864と378の最大公約数54をユークリッドの互除法で求められるメカニズムの説明を試みる動画 pic.twitter.com/5eN1dDeQNn

— ヤスハラユウジ (@dsedb) January 26, 2025

また、こちらは以前作った、ScratchとIchigoJamとJavaScriptでの実装比較を動画。

教育用構造化プログラミング言語「Wirth」で実装すると、こんな感じ。

n <- input() m <- input() while 1 r = n % m if r = 0 break endif n = m m = r next print m

「RUN "lcd.wirth" on Wirth Playground」
AbortControllerで停止可能なsleep.jsを実装し、実行を途中で止める「STOP」ボタンといつでも再度実行できる「RUN」ボタンを追加。

export const sleep = (ms, signal) => { return new Promise((resolve, reject) => { let abortfunc; const timer = setTimeout(() => { resolve(); signal?.removeEventListener("abort", abortfunc); }, ms); abortfunc = () => { clearTimeout(timer); reject(new Error("sleep aborted")); signal?.removeEventListener("abort", abortfunc); }; signal?.addEventListener("abort", abortfunc); }); };

いろいろ動かして、遊んでみてくださいー

links
- Pascalリスペクトの教育用構造化プログラミング言語「Wirth」