Haskell: Siła płynie mieć dwie dziesiętne

Question

Korzystanie następujący fragment kodu:

(fromIntegral 100)/10.00 

Korzystanie z Haskell '98 standardowego preludium, jak mogę reprezentować wynik z dwóch miejsc po przecinku?

Dzięki.

Answer 1

Tak dla przypomnienia:

import Numeric 
formatFloatN floatNum numOfDecimals = showFFloat (Just numOfDecimals) floatNum "" 

Answer 2

Można użyć printf :: PrintfType r => String -> r z Text.Printf:

Prelude> import Text.Printf 
Prelude Text.Printf> printf "%.2f\n" (100 :: Float) 
100.00 
Prelude Text.Printf> printf "%.2f\n" $ fromIntegral 100/10.00 
10.00 

%f formatuje drugi argument w postaci liczby zmiennoprzecinkowej. %.2f wskazuje, że powinny zostać wydrukowane tylko dwie cyfry za kropką dziesiętną. \n reprezentuje znak nowej linii. Nie jest to konieczne dla tego przykładu.

Należy zauważyć, że ta funkcja zwraca wartość typu String lub IO a, w zależności od kontekstu. Demonstracja:

Prelude Text.Printf> printf "%.2f" (1337 :: Float) ++ " is a number" 
"1337.00 is a number" 

W tym przypadku printf zwraca łańcuch "1337.00", ponieważ wynik jest przekazywana jako argument do (++), która to funkcja, która spodziewa się lista argumentów (zauważ, że String jest taka sama jak [Char]). Jako taki, printf również zachowuje się jak sprintf w innych językach. Oczywiście sztuczka taka jak dodanie drugiego ciągu nie jest konieczna. Można po prostu jawnie określić typ:

Prelude Text.Printf> printf "%.2f\n" (1337 :: Float) :: IO a 
1337.00 
Prelude Text.Printf> printf "%.2f\n" (1337 :: Float) :: String 
"1337.00\n"