哈斯克尔。二进制数中的数字。话

本文介绍了哈斯克尔。二进制数中的数字。话的处理方法，对大家解决问题具有一定的参考价值，需要的朋友们下面随着小编来一起学习吧！

问题描述

  import Data.Char 
 
 
 blockCode :: S 
 
 lett2num :: Char  - >诠释
 lett2num y 
 | （或
 
 
 num2bin :: Int  - > [Int] 
 num2bin n：负数
其中n2b 0 = [] 
 n2b n = n`mod` 2：n2b（n` div` 2）

解决方案

您可以使用 concatMap show 将列表转换为字符串：

  Main>> num2bin 8 
 [0,0,0,1] 
 Main> concatMap show $ num2bin 8 
0001
  
 
 
 但请注意，您的函数的输出是相反的。
 
 
 要一气呵成，  
 
 
  num2bin :: Int  - >字符串
 num2bin n 
 | n> = 0 = concatMap show $ reverse $ n2b n 
 | otherwise = errornum2bin：负数
其中n2b 0 = [] 
2b n = n`mod` 2：n2b（n`div` 2 ）
  
 
import Data.Char


blockCode :: S   

lett2num :: Char ->  Int
lett2num y 
   | (or


num2bin :: Int -> [Int]
num2bin n: negative number"
  where n2b 0  =  []
        n2b n  =  n `mod` 2 : n2b (n `div` 2)
 解决方案 
You can use concatMap show to transform a list into a string:
Main> num2bin 8
[0,0,0,1]
Main> concatMap show $ num2bin 8
"0001"
but note that your function's output is reversed.
To do everything in one go, do
num2bin :: Int -> String
num2bin n
  | n >= 0     =  concatMap show $ reverse $ n2b n
  | otherwise  =  error "num2bin: negative number"
  where n2b 0  =  []
        n2b n  =  n `mod` 2 : n2b (n `div` 2)
                        
这篇关于哈斯克尔。二进制数中的数字。话的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持！