中古ノート、買ってみた。 その90

概要

中古ノート買ってみた。
wsl1のubuntu18.04にgforth入れてみた。
チュートリアルを作ってみた。
三日、掛かった。

TUTORIAL 15

メモリーソート

Gforth 0.7.3, Copyright (C) 1995-2008 Free Software Foundation, Inc.
Gforth comes with ABSOLUTELY NO WARRANTY; for details type `license'
Type `bye' to exit
create mem 9 , 8 , 7 , 6 , 5 , 4 , 3 , 2 , 1 ,  ok
: @m cell * mem + @ ;  ok
: !m cell * mem + ! ;  ok
: show 9 0 do i @m . loop ;  ok
: mswap dup @m over 1 - dup @m -rot !m swap !m ." s" ;  ok
: sort cr 8 0 do 8 i do j @m i 1 + @m > if j i 1 + mswap endif loop loop ;  ok
show 9 8 7 6 5 4 3 2 1  ok
sort
ssssssssssssssssssss ok
sort
ssssssssss ok
sort
sssss ok
sort
s ok
show 1 2 3 4 5 6 7 8 9  ok
bye

以上。