ドメインを逆順にしてみる

Scheme 30分プログラム

30分プログラム、その540。パッケージ名のようにドメインを逆順で表示してみる。
すんなり書けてしまったので、特にコメントはない。

使い方

gosh> (domain-rev "mzp.sakura.ne.jp")
"jp.ne.sakura.mzp"

ソースコード

#! /opt/local/bin/gosh

(define (domain-rev xs)
  (string-join (reverse (string-split xs "."))
	       "."))

参考