Jump to content
Sign in to follow this  
BasketWink

Char to Bin

Recommended Posts

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:

error_www.kepfeltoltes.hu_.jpg

 

é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

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Bejelentkezés

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

  • Recently Browsing   0 members

    No registered users viewing this page.

×