2017/02/02

Gaucheでひらけ！ポンキッキ (文字列の回転)

流行りに乗る

• lambda を隠した書き方 (35) - 第25回シェル芸勉強会 Q2 -- ひらけ！ポンキッキ - Guile
• Scheme (R6RS) でひらけ！ポンキッキ - R6RS
• ひらけ！ポンキッキ - srfi-13(xsubstring)

円環状につなげてずらして切り出すには、循環リストを作るという手もある。

(use srfi-1)
(define (rot s)
  (let1 l (string-length s)
    ($ for-each ($ print $ list->string $ (cut take <> l) $ drop
                   ($ circular-list $* string->list s) $)
       $ iota l)))

($ f $ g $ h $) はパイプを逆さにつなげたように読むと良い。データが右から入って左に流れてゆく。

gosh> (rot "ひらけ！ポンキッキ")
ひらけ！ポンキッキ
らけ！ポンキッキひ
け！ポンキッキひら
！ポンキッキひらけ
ポンキッキひらけ！
ンキッキひらけ！ポ
キッキひらけ！ポン
ッキひらけ！ポンキ
キひらけ！ポンキッ
#<undef>

Tags: Programming, Gauche, Scheme