読者です 読者をやめる 読者になる 読者になる

(define -ayalog '())

括弧に魅せられて道を外した名前のないプログラマ

豚骨ラーメンが食べたい

Scheme

どうしよもないくらいどうでもいいことをふと思いつく瞬間がある。

@のせいでどうでもいいことを思いついたので、パッと書く。

(define (tonko2ramen str n)
  (list->string
   (append-map (^c (make-list n c))
	       (string->list str))))

(tonko2ramen "豚骨ラーメン" 3)
;;"豚豚豚骨骨骨ラララーーーメメメンンン"

豚骨ラーメンが食べたい。