いろんな言語で宿題ス ..
32:デフォルトの名無しさん
09/05/29 22:42:51
scheme と同じ発想で
import Data.Ratio
f :: Rational -> Rational
f x | x < 0.00001 = x
| otherwise = x + f (x/3)
main = print $ fromRational $ f 1
次ページ最新レス表示スレッドの検索類似スレ一覧話題のニュースおまかせリスト▼オプションを表示暇つぶし2ch
4630日前に更新/314 KB
担当:undef