文字列⇔アトム 変換

説明

TAOで記述した、文字列をアトムに変換する関数とアトムを文字列にする関数。単に再帰呼び出しをしたかったんじゃなかろうか。あと、名前がよくない。(十進変換みたいで)

ELIS復活祭

[戻る]

実行例

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))))
)

[戻る]
inserted by FC2 system