purescript - PureScript 是否支持 “format strings” 像 C/Java 等？

Question

我需要输出一个带有前导零和六位数的数字。在 C 或 Java 中，我会使用 "%06d"作为格式字符串来执行此操作。 PureScript 是否支持格式字符串？或者我将如何实现这一目标？

Answer 1

我不知道有任何模块可以支持 PureScript 中的 printf 样式功能。如果有一种类型安全的方式来格式化数字，那就太好了。

与此同时，我会写这样的东西:

import Data.String (length, fromCharArray)
import Data.Array (replicate)

-- | Pad a string with the given character up to a maximum length.
padLeft :: Char -> Int -> String -> String
padLeft c len str = prefix <> str
  where prefix = fromCharArray (replicate (len - length str) c)

-- | Pad a number with leading zeros up to the given length.
padZeros :: Int -> Int -> String
padZeros len num | num >= 0  = padLeft '0' len (show num)
                 | otherwise = "-" <> padLeft '0' len (show (-num))

这会产生以下结果:

> padZeros 6 8
"000008"

> padZeros 6 678
"000678"

> padZeros 6 345678
"345678"

> padZeros 6 12345678
"12345678"

> padZeros 6 (-678)
"-000678"

编辑: 同时，我写了一个小模块，可以用这种方式格式化数字:
https://github.com/sharkdp/purescript-format

对于您的特定示例，您需要执行以下操作:

如果要格式化整数:

> format (width 6 <> zeroFill) 123
"000123"

如果要格式化数字

> format (width 6 <> zeroFill <> precision 1) 12.345
"0012.3"