DouKaku? 2583 rubikitch: Scheme用SLIMEがあればいいのに…(与えられた文字列でピラミッド)

Comment detail

Scheme用SLIMEがあればいいのに…

(use srfi-1)
(define (pyramid str)
  (map
   (lambda (i)
     (format #t "~a~a~%" (make-string i)
             (string-join (map string (string->list str i (string-length str))) " ")))
   (iota (- (string-length str) 0) (- (string-length str) 1) -1)))
(pyramid "abracadabra")

文字列のインデックスアクセスも算術演算も明示的ループも無しで。

(use util.list)
(define (pyramid s)
  (let r ((s (string->list s)) (p '()))
    (unless (null? s)
      (r (cdr s) (cons #\ p))
      (apply print (append p (intersperse #\  s))))))

名前付きletは明示的loopじゃないと？:)

名前付けてるだけだも〜ん。それにいわゆる「ループとしての使いかた」はしてないし。

Never mind ! :)

DouKaku?

Comment detail

Index

Feed

Other

Link

Pathtraq