Char to Bin

[BasketWink]

Hali,

 

a gondom hogy haskellben karaktert kellene kettes számrendszerben megjeleníteni úgy hogy 8 karakter hosszú legyen ha nicns annyi akkor az elejéhez hozzá rakjon a progi 0-ákat. de valamiért nem működik :S

 

itt van a hibakód:

 

és itt a progi kód:

import Data.Char (ord)
toBinary :: Int -> [Int]
toBinary 0 = []
toBinary x = reverse (kisegf x)
kisegf 0 = []
kisegf x | x `mod` 2 == 1 = 1 : kisegf (x `div` 2)
         | x `mod` 2 == 0 = 0 : kisegf (x `div` 2)
chrToBinary :: Char -> [Int]
chrToBinary x | length (kisegf2 x) == 8 = kisegf2 x
              | length (kisegf2 x) <8 = ((kisegf2 x) ++ 0)
kisegf2 0 = []
kisegf2 x = toBinary(ord 'x')

 

köszi

W