「pos+」記事へのコメント

末尾再帰?

[visha (779)]

末尾再帰になってない気がします。こんな感じ?

#!/usr/bin/env gosh

(define (pos+ list)
  (reverse
   (let loop ((result '())
          (tmp list)
          (i 0))
     (if (null? tmp)
     result
     (loop (cons (+ i (car tmp)) result)
           (cdr tmp)
           (+ i 1)))
     )))

(define (main args)
  (display (pos+ '

なるほど～

[cooper (4658)]

やっぱりそうでしたか。ありがとうございます。reverse の位置はこっちでも良いのでしょうか?

(define (pos+ list)
  (let loop ((result '())
             (tmp list)
             (i 0))
    (if (null? tmp)
        (reverse result)
        (loop (cons (+ i (car tmp)) result)
              (cdr tmp)
           

--

-- cooper

再帰使わない版

[visha (779)]

せっかくなので、再帰を使わない版も

#!/usr/bin/env gosh

(define (pos+ list)
  (map
   (let ((offset 0))
     (lambda (arg)
       (set! offset (+ offset 1))
       (+ arg (- offset 1))))
   list))

(define (main args)
  (display (pos+ '(1 3 5 7)))
  (newline))

;;; set!を使うなんてダサ過ぎ、と言われれば返す言葉もございません。

Re:再帰使わない版

[visha (779)]

もうちょっと整理しました。思いつきを書き込む前に10秒くらい考えろよという教訓です。_o_

#!/usr/bin/env gosh

(define (pos+ list)
  (let ((offset 0))
    (map
     (lambda (arg)
       (let ((i offset))
     (set! offset (+ offset 1))
     (+ arg i)))
     list)))

(define (main args)
  (display (pos+ '(1 3 5 7)))
  (newline))

gauche, cool...

[cooper (4658)]

#!/usr/bin/env gosh

(use gauche.sequence)

(define (pos+ list)
  (map-with-index + list))

(define (main args)
  (display (pos+ '(1 3 5 7)))
  (newline))

;;; 再発明も再利用も楽しい

--

-- cooper

その他覚え書き用のカタログ

[cooper (4658)]

;;; 富豪プログラミング風
(use srfi-1)
(define (pos+ list)
  (map + (iota (length list)) list))

;;; ストレートな map
(define (pos+ list)
  (map (let ((pos -1))
         (lambda (arg)
           (inc! pos)
           (+ pos arg))) list))

--

-- cooper