条件がFalseの場合、Haskell Iterateを繰り返します。

Question

私は数値のセットを持っています。たとえば、set = [1,3,4,5,6,7,8]です。ループを書く必要があります。これは、たとえば合計がmax = 30より小さい要素だけを選択します。

for(int i = 0;i<set.length();i++) { total = total + set[i]; if (total <= max) return i; } 
..... 
elements are from 0 to returned index 

私は、1サイクルだけを使用してそれを再帰的にhaskellで行う方法は知られていません。

Answer 1

合計が大きすぎるまで要素を放出してリストを歩きます。だから、：GHCiの中

thePriceIsRight max (x:xs) | x <= max = x : thePriceIsRight (max-x) xs 
thePriceIsRight _ _ = [] 

：

> thePriceIsRight 30 [1,3,4,5,6,7,8] 
[1,3,4,5,6,7]