0001

初期盤面を読み込む：F3～J3にサイズ5、4、3、1、2

0002

亀をE10（X=4、Y=9）に置く

0003

“initial board:”を表示する

0004

現在の盤面を表示する

0005

関数を定義する：次の未整列ピラミッドを探す · 呼び出されたときにだけ中のカードを実行します。

0006

左から右へ列0～9の各xについて繰り返す

0007

(“Ax:” + xを文字列にする)を表示する

0008

(value, x, y)をX=x、Y=2にあるピラミッドのサイズと座標。なければ「not found」にする

0009

もしvalueが“not found”と異なるなら

0010

呼び出し元に戻る（結果：(value, x, y)）

0011

呼び出し元に戻る（結果：値なし）

0012

関数を定義する：整列用の行で一番右のピラミッドを探す · 呼び出されたときにだけ中のカードを実行します。

0013

右から左へ列9～0の各xについて繰り返す

0014

(“Bx:” + xを文字列にする)を表示する

0015

(value, x, y)をX=x、Y=4にあるピラミッドのサイズと座標。なければ「not found」にする

0016

もしvalueが“not found”と異なるなら

0017

呼び出し元に戻る（結果：(value, x, y)）

0018

呼び出し元に戻る（結果：値なし）

0019

0から5の直前までの整数の各colについて繰り返す

0020

(“column ” + colを文字列にする)を表示する

0021

(pyramid Number, x, y)を「次の未整列ピラミッドを探す」を呼び出した結果にする

0022

(“HERE pyr ” + pyramid Numberを文字列にする)を表示する

0023

ピラミッドpyramid NumberをX=col、Y=4へ動かす

0024

currentをcolにする

0025

currentが0より大きいの間、繰り返す

0026

(left value, left x, left y)をX=(current − 1)、Y=4にあるピラミッドのサイズと座標。なければ「not found」にする

0027

(current value, current x, current y)をX=current、Y=4にあるピラミッドのサイズと座標。なければ「not found」にする

0028

もし(left valueが“not found”に等しい) または (current valueが“not found”に等しい)なら

0029

“Error: Missing pyramid during bubble”を表示する

0030

一番内側の繰り返しを抜ける

0031

もしleft valueがcurrent value以下なら

0032

一番内側の繰り返しを抜ける

0033

(((“SWAP pyramids ” + left valueを文字列にする) + “ and ”) + current valueを文字列にする)を表示する

0034

ピラミッドcurrent valueをX=0、Y=0へ動かす

0035

ピラミッドleft valueをX=current、Y=4へ動かす

0036

ピラミッドcurrent valueをX=(current − 1)、Y=4へ動かす

0037

currentを更新する：(current − 1)

0038

“Final sorted board:”を表示する

0039

現在の盤面を表示する

Insertion sort with pyramids