Haskellプログラムでインスタンスエラーが発生していない

Question

ある長さのパスカルの三角形に印刷したかったのです。

main = do 
    l_str <- getLine 
    let l_int = read $ l_str :: Int  
    let why = print_row l_int 0 
    print why 
    return() 

print_row x y 
    | (x < y) = " "  
    | otherwise = (print_column y 0) ++ "\n" ++ print_row x (y+1) 
print_column y r 
    | (y < r) = "" 
    | otherwise = (show $ fact y r) ++ print_column y (r+1) 
fact n r 
    | (n >= r) = truncate $ (fact' n)/((fact' (n-r))*(fact' r)) 
fact' n 
    | (n >= 0) = product [1..n]  

「print_row」、「print_column」のすべての機能がすべて正常に機能していることを確認しました。 は、私はこのエラーを取得しています：私はライン4.Likeに代わりl_intの定数を使用する場合

PascalTriangle.hs:4:17:
No instance for (RealFrac Int) arising from a use of ‘fact’
In the expression: fact l_int 0
In an equation for ‘why’: why = fact l_int 0
In the expression:
do { l_str <- getLine;
let l_int = ...;
let why = fact l_int 0;
print why;
.... }

私はこのerror.Theのpogramについては何も理解できないのですが正常に動作する理由= print_row 4 0

てみましょう

Answer 1

/の代わりにdivを使用する必要があります。

divは2つの積分値を取り、別の積分値を返します。 div 5 2 == 2。次に、truncateコールを取り除く必要があります。

/ "浮動小数点"除算を行います。

fromIntegralは、他のNumタイプにIntegral値を変換します。