TAOで記述した、文字列をアトムに変換する関数とアトムを文字列にする関数。単に再帰呼び出しをしたかったんじゃなかろうか。あと、名前がよくない。(十進変換みたいで)
Tao>(pack '"test string")
; pack (x) 文字列をアトムにする
; unpack (x) アトムを文字列にする
; 1990/07/10 idaten
;
(de unpack (x)
(if (> (slength x) 0)
(cons (shead x) (unpack (nsubstring x 1))))
)
(de pack (x)
(if (> (length x) 0)
(string-append (car x) (pack (cdr x))))
)