縦書き出力

30分プログラム、その777。anarchy golf - Vertical writingにインスパイアされて縦書き出力をやってみました。

使い方

- run "Hello";
H
e
l
l
o

ソースコード

fun interperse x []      = []
  | interperse x (y::ys) = y::x::interperse x ys;

fun vertical s =
    String.implode (interperse #"\n" (String.explode s));

fun println s =
    (print s;
     print "\n");

fun run s =
    println (vertical s);

参考

• 過去の30分プログラム
• anarchy golf - Vertical writing