Instance de [Char] fractionnaire requise pour la définition?

Question

Il s'agit d'un code simple conçu pour prendre un nombre décimal et renvoyer une chaîne représentant l'équivalent en binaire.

b2d :: Int -> String 

b2d 1 = "1" 
b2d x = show (x `mod` 2) ++ b2d x/2 

Cependant, lorsque je tente d'exécuter ce à travers des caresses, il me donne une erreur:

:3 - Instance of fractional [Char] required for definition of b2d 

Je ne sais pas ce que cela signifie. Quelqu'un peut-il me dire comment y remédier?

Cheers.

Answer 1

/ est l'opérateur de division fractionnaire. Pour les entiers, vous devez utiliser div (et ajouter entre parenthèses comme newacct mentionné):

b2d x = show (x `mod` 2) ++ b2d (x `div` 2) 

Pour les points d'efficacité supplémentaires, utilisez divMod seulement effectuer une division:

b2d x = let (q,r) = x `divMod` 2 
     in show r ++ b2d q 

Answer 2

que vous vouliez probablement (appels de fonction ont une priorité plus élevée que les opérateurs):

b2d (x/2) 

aussi votre premier cas devrait prendre probablement pas 2 arguments