Haskell. Numbers in binary numbers. words

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

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)