Haskell: Formatuj numer z przecinkami

Czy istnieje funkcja biblioteczna do wstawiania przecinków do liczb za pomocą Haskella?Haskell: Formatuj numer z przecinkami

chcę funkcję, która będzie działać tak:

format 1000000 = "1,000,000" 
format 1045.31 = "1,045.31"

ale nie wydaje się znaleźć dowolną liczbę funkcji tego typu w Haskell formatowania. Gdzie są funkcje formatowania liczb?

Źródło

2010-09-20 Nate

++ Pytam o bibliotekę, a nie funkcję. –

Jest to prawdopodobnie powiązane: http: // stackoverflow.com/questions/1388209/how-to-format-numbers-according-to-locale-in-haskell (jak formatować liczby zgodnie z ustawieniami narodowymi) – sastanin

Jeśli biblioteka nie istnieje, powinieneś użyć tego jako świetnego pretekstu do napisania pierwszy pakiet Haskell Cabal. –

Zapoznaj się z Text.Printf moduł w baza:

https://hackage.haskell.org/package/base-4.9.0.0/docs/Text-Printf.html

Źródło

2010-09-20 15:30:11 Raghs

Nie jestem pewien, czy działa to, co jest wymagane. To po prostu dostarcza 'printf', ale jaka implementacja' printf' obsługuje regionalny wyświetlacz numeryczny z przecinkami? To, czego chce, to coś w rodzaju [Numer :: Format] (http://search.cpan.org/dist/Number-Format/Format.pm) dla Perla. –

Być może korzystać z niektórych funkcji z Data.Split:

http://hackage.haskell.org/cgi-bin/hackage-scripts/package/split

Znam tego ISN” t czego chcesz, ale możesz użyć Data.List.intersperse

http://haskell.org/ghc/docs/6.12.1/html/libraries/base-4.2.0.0/Data-List.html#v:intersperse

EDIT: To nie to, co chcesz, choć wiem, że chcesz to funkcja biblioteki, może to być tak blisko, jak można dostać (proszę wybaczyć moją biedną styl kodowania):

import Data.List.Split 
import Data.List 

format x = h++t 
    where 
     sp = break (== '.') $ show x 
     h = reverse (intercalate "," $ splitEvery 3 $ reverse $ fst sp) 
     t = snd sp

Źródło

2010-09-20 15:57:40

To było również moje myślenie. –

Dla Floats, 'show x' powinno zostać zamienione na' showFFloat Nothing x "" 'from' Numeric' package. Ponadto 'splitEvery' jest teraz' chunksOf'. – VlatkoB

(z hier: http://bluebones.net/2007/02/formatting-decimals-in-haskell/)

formatowania dziesiętnych Haskell

formatt funkcja z numerów takich jak 333999333.33 do "333,999,999.33" w Haskell. Radzi sobie z liczbami ujemnymi i rundami do 2 dp (łatwo można dodać do tego paramater).

Przykłady:

* Główna> formatDecimal 44

"44.00"

* Główna> formatDecimal 94.280.943,4324

"94,280,943.43"

* Główna> formatDecimal (-89.438,329)

"-89,438.33"

import Data.Graph.Inductive.Query.Monad (mapFst) 
import List 
import Text.Printf 

formatDecimal d 
    | d < 0.0 = "-" ++ (formatPositiveDecimal (-d)) 
    | otherwise = formatPositiveDecimal d 
    where formatPositiveDecimal = uncurry (++) . mapFst addCommas . span (/= '.') . printf "%0.2f" 
      addCommas = reverse . concat . intersperse "," . unfoldr splitIntoBlocksOfThree . reverse 
      splitIntoBlocksOfThree l = case splitAt 3 l of ([], _) -> Nothing; p-> Just p

Źródło

2010-12-10 11:52:12 Jogusa

Sam miałem ten problem. Moje bardzo pragmatyczne rozwiązanie (użycie tekstu jako T) jest następujące:

T.replace (T.singleton '.') (T.singleton ',') $ 
T.pack $ 
showFixed False 42.0

Nie działa jednak w przypadku separatorów. To było w porządku ze mną.

Dla mnie ustawienie regionalne nie jest pomocne, chyba że istnieje sposób na jego ustawienie.

Źródło

2011-05-04 16:14:57 LennyStackOverflow

Haskell: Formatuj numer z przecinkami

Odpowiedz

Powiązane problemy