豚骨ラーメンが食べたい - (define -ayalog '())

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

豚豚豚豚骨骨ラララーーメメメメメメメメンンンン

2013-08-21 23:42:38 via web

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

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

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

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