Haskell. Числа в двоичных числах. Слова

Question

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) 

Answer 1

Вы можете использовать concatMap show для преобразования списка в строку:

Main> num2bin 8 
[0,0,0,1] 
Main> concatMap show $ num2bin 8 
"0001" 

, но обратите внимание, что выход вашей функции является обратным.

Чтобы сделать все на одном дыхании, сделайте

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) 

Answer 2

Функция преобразует целое число в двоичную:

num2bin :: (Integral a, Show a) => a -> String 
num2bin 0 = "0" 
num2bin 1 = "1" 
num2bin n 
    | n < 0   = error "Negative number" 
    | otherwise  = num2bin (n `div` 2) ++ show (n `mod` 2)