Добавил:
Upload
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:То что скидывала Даша / lab3
.lhs Задание 1
> task11 :: Int -> Int
> task11 x =
> let t = x `rem` 10
> in (t * 100) + ((x - t) `div` 10)
> task12 :: Int -> Int
> task12 n =
> let t = n `rem` 100
> in (t * 10) + (n `div` 100)
Задание 2
> task2 :: Int -> Int -> (Int, Int)
> task2 a b =
> (if abs a > abs b then a `div` 2 else a,
> b)
> task11 :: Int -> Int
> task11 x =
> let t = x `rem` 10
> in (t * 100) + ((x - t) `div` 10)
> task12 :: Int -> Int
> task12 n =
> let t = n `rem` 100
> in (t * 10) + (n `div` 100)
Задание 2
> task2 :: Int -> Int -> (Int, Int)
> task2 a b =
> (if abs a > abs b then a `div` 2 else a,
> b)