「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

Re:なるほど～

[visha (779)]

よいです。そちらの方が見通しはいいですね。

# ぱっとloopを作って「逆順じゃん」で頭にreverseを突っ込んだのがバレバレでしたね(笑)。