急勾配の判定
Posted feedbacks - Scheme
超増加列の反転かどうかを判定すればいいので、線形時間で出来ました。
1 2 3 4 5 6 7 | (define (super-decreasing? lis)
(let1 l (reverse lis)
(let loop ((l l) (s 0))
(cond ((null? l) #t)
((> (car l) s)
(loop (cdr l) (+ s (car l))))
(else #f)))))
|
nobsun
#8891()
Rating1/1=1.00
有限の長さの数列で，各要素の値が，その要素の後ろにある残りの列に含まれるすべての要素の和よりも大きい列を「急勾配の列」ということにします（空列の和は0とします）．
任意の長さ（ただし有限の長さの）数列を与えられたとき，それが「急勾配の列」であるかどうかを判定する述語関数を定義してください．
必須ではありませんが，効率についてコメントがあれば面白いかもしれませんね．
[ reply ]