70291


各位の和を求める作業について、C言語ではよく耳にしますが、Haskellではどうすればいいのか疑問になりました。  
ここで、私は0以上の整数nの各位の和を求める関数`keta_goukei(n)`を以下のように作ってみました。

[code]

    keta_goukei(n)=if 0<=n && n<10 then n  else n `mod` 10+keta_goukei(n/10) 
    
[/code]

nが一桁の整数ならば(`0<=n && n<10`)、桁の合計はnであり(`then
n`)、そうでなければ、桁の合計はnの1の位の数+nの10の位より上位の桁からなる整数の桁の合計であると考えたのですが、後者についてどうプログラムすればいいのかわかりませんでした。  
nが二桁以上の整数になるとき、まず最初にnを10で割ったときの余り(`mod n
10`)に、上位の桁からなる整数を10で割った余りをどんどん足していくのだと思いますが、それをどのようにプログラムすればいいのでしょうか。


CC BY-SA 4.0
2020-09-10T12:08:44.447
70287
2020-09-10T16:31:33.387
2020-09-10T16:31:33.387
153
41837
question
haskell
Haskellで各位の和を求めてみたいのですが、やり方がわかりません


どういうエラーで困っているのかが分からないので解説ができないのですが、下記で定義できます。

[code]

    keta_goukei n = if 0 <= n && n < 10 then n else n `mod` 10 + keta_goukei (n `div` 10)
    
[/code]


CC BY-SA 4.0
2020-09-10T13:08:20.183
70291
2020-09-10T13:08:20.183
153
70287
answer