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