＃設定 縦書きは空配列。 分かち書き記号は「 」　//半角スペース 俳句は、「これがまあ 終の栖か 雪五尺」 作者は、「小林一茶」 ＃一番長い行に合わせて他の行の末尾を全角スペースで埋める 俳句を分かち書き記号で区切って、それを表右回転。 最大文字数は、それの要素数。 C=0。　//カウンタ 俳句を分かち書き記号で区切って反復 　対象を仮に代入。 　(最大文字数-(対象の文字数))回 　　仮は、仮に「　」を追加。　//全角スペース 　ここまで。 　仮を縦書き[C]に代入。C=C+1。 ここまで。 ＃作者名は末尾に揃えるため行頭を全角スペースで埋める (最大文字数-(作者の文字数))回 　作者は、作者の０に「　」を文字挿入。　//全角スペース ここまで。 縦書き[縦書きの要素数]に作者を代入。 ＃表示する 縦書きは、縦書きを表右回転。 縦書きを反復 　それを「 」で配列結合して表示。　//半角スペースで行間を空ける ここまで。