Dywizja w Haskell

Question

Tworzę funkcję w Haskell, która dzieli tylko o połowę na liście i mam problem. Kiedy uruchamiam kompilatora, narzeka, że ​​nie możesz wykonać podziału int i że potrzebuję ułamkowego deklaracji typu int. Próbowałem zmienić deklarację typu na float, ale to tylko wygenerowało kolejny błąd. Zawarłem poniższy kod funkcji i miałem nadzieję na jakąkolwiek formę pomocy.

halfEvens :: [Int] -> [Int] 
halfEvens [] = [] 
halfEvens (x:xs) | odd x = halfEvens xs 
       | otherwise = x/2:halfEvens xs 

Dziękuję za przeczytanie.

Answer 1

Zastosowanie div, który wykonuje dzielenie całkowitej:

halfEvens :: [Int] -> [Int] 
halfEvens [] = [] 
halfEvens (x:xs) | odd x = halfEvens xs 
       | otherwise = x `div` 2 : halfEvens xs 

Funkcja (/) wymaga argumentów, których typ jest w klasie frakcyjną i przeprowadza standardową podział. Funkcja div wymaga argumentów, których typ jest w klasie Integral, i wykonuje dzielenie liczby całkowitej.

Dokładniej, div i mod w obie strony w kierunku ujemnej nieskończoności. Ich kuzyni, quot i rem, zachowują się jak integer division in C i zaokrąglają w kierunku zera. div i mod są zwykle poprawne podczas wykonywania arytmetyki modułowej (na przykład przy obliczaniu dnia tygodnia z datą), podczas gdy quot i rem są nieco szybsze (chyba).

Bawiąc się trochę w GHCi:

> :t div 
div :: Integral a => a -> a -> a 
> :t (/) 
(/) :: Fractional a => a -> a -> a 
> 3/5 
0.6 
> 3 `div` 5 
0 
> (-3) `div` 5 
-1 
> (-3) `quot` 5 
0 
> [x `mod` 3 | x <- [-10..10]] 
[2,0,1,2,0,1,2,0,1,2,0,1,2,0,1,2,0,1,2,0,1] 
> [x `rem` 3 | x <- [-10..10]] 
[-1,0,-2,-1,0,-2,-1,0,-2,-1,0,1,2,0,1,2,0,1,2,0,1] 

Answer 2

Dodam, że za pomocą map uprości kod.

HalfIfEven n 
    | even n = n `div` 2 
    | otherwise = n 

halfEvens = map halfIfEven