formatで◆

HakerNews経由で
Google グループ
あなごる過去問にありそう？

(format t "~{~*~#@T~:*~#@**~#@{**~}~%~#@*~*~}~:*~{~#@*~#@T~#@*~**~#@{**~}~%~}" (make-list (read)))
7
      *
     ***
    *****
   *******
  *********
 ***********
*************
*************
 ***********
  *********
   *******
    *****
     ***
      *
nil

~{ ~} の中の~#*はHyperSpecに準拠してる処理系ならうまい事動くもんだと思ってたのに、ちょっと前にLispWorksで遊んでたら変な結果が出てあれぇ？ってなった。

(format t "~{~#@*~:*~A~:*~#@*~}" '(1 2 3))

321と出てほしいのだけどCLISPやLispWorksだと333に。

より◆に

(format t "~{~*~#@T~:*~#@**~#@{**~}~%~#@*~*~}~:*~{~*~@{~#@*~#@T~#@*~**~#@{**~}~%~}~}" (make-list (read)))
3
  *
 ***
*****
 ***
  *