--{-# OPTIONS_GHC -Wall #-}
--module HW05 where
module Main where
data AbstractInteger = Zero
| Succ AbstractInteger
| Pred AbstractInteger
deriving (Show, Eq)
-- Задача 1 -----------------------------------------
instance Ord AbstractInteger where
-- (<=) = undefined
compare (Pred _) (Pred _) = EQ
compare (Pred _) _ = LT
compare (Succ _) (Succ _) = EQ
compare (Succ _) _ = GT
compare Zero (Succ _) = LT
compare Zero (Pred _) = GT
compare Zero Zero = EQ
-- Задача 2 ----------------------------------------
aiToInteger :: AbstractInteger -> Integer
--aiToInteger = undefined
aiToInteger Zero = 0
aiToInteger (Pred ai)
| ai == Zero = -1
| otherwise = aiToInteger ai - 1
aiToInteger (Succ ai)
| ai == Zero = 1
| otherwise = aiToInteger ai + 1
-- Задача 3 -----------------------------------------
plusAbs :: AbstractInteger -> AbstractInteger -> AbstractInteger
--plusAbs = undefined
plusAbs ai1 ai2 = plusAbs' ai1 ai2
where
plusAbs' Zero a = a
plusAbs' (Pred a1') (Succ a2') = plusAbs a1' a2'
plusAbs' a1@(Pred _) (Pred a2') = plusAbs (Pred a1) a2'
plusAbs' a1@(Succ _) (Succ a2') = plusAbs (Succ a1) a2'
plusAbs' a1 a2 = plusAbs a2 a1
-- Задача 4 -----------------------------------------
timesAbs :: AbstractInteger -> AbstractInteger -> AbstractInteger
--timesAbs = undefined
timesAbs ai1 ai2 = ai2
{-
timesAbs (Pred (Pred Zero)) (Pred (Pred (Pred Zero))) =
= Succ( Succ ( Succ (Succ (Succ (Succ Zero)))))
-}
-- Задача 5 -----------------------------------------
instance Num AbstractInteger where
(+) = plusAbs
(*) = timesAbs
negate = undefined
fromInteger = undefined
abs = undefined
signum = undefined
-- Задача 6 -----------------------------------------
factorial :: (Eq a, Num a) => a -> a
factorial = undefined
-- Задача 7 -----------------------------------------
data Quaternion = Quaternion Double Double Double Double deriving (Eq)
instance Show Quaternion where
show = undefined
-- Задача 8 -----------------------------------------
plusQuaternion :: Quaternion -> Quaternion -> Quaternion
plusQuaternion = undefined
-- Задача 9 -----------------------------------------
timesQuaternion :: Quaternion -> Quaternion -> Quaternion
timesQuaternion = undefined
--- Задача 10 ----------------------------------------
instance Num Quaternion where
(+) = plusQuaternion
(*) = timesQuaternion
negate = undefined
fromInteger = undefined
abs = undefined
signum = undefined
main :: IO ()
main = do
print $ "1. " ++ show (compare Zero (Succ Zero))
print $ "1. " ++ show (compare (Pred Zero) (Succ Zero))
print $ "1. " ++ show (Zero <= (Succ Zero))
print $ "1. " ++ show ((Pred Zero) == (Succ Zero))
print $ "2. " ++ show (aiToInteger Zero)
print $ "2. " ++ show (aiToInteger (Pred (Pred Zero)))
print $ "2. " ++ show (aiToInteger (Pred (Pred (Pred Zero))))
print $ "2. " ++ show (aiToInteger (Succ (Pred (Pred (Pred (Pred Zero))))))
print $ "3. " ++ show (plusAbs (Pred (Pred Zero)) (Succ (Succ Zero)))
print $ "3. " ++ show (plusAbs (Pred Zero) (Succ (Succ Zero)))
print $ "4. " ++ show (timesAbs (Pred (Pred Zero)) (Pred (Pred (Pred Zero))))
About Online Haskell Compiler
Try our Online Haskell Compiler (Version Glorious Glasgow, v8.8.4) to Edit, Run, and Share your Haskell Code directly from your browser. This online development environment provides you the latest version Glorious Glasgow, v8.8.4.
How to use Online Haskell Compiler?
Write and Execute Code
- Write your program (or, paste it) directly under the "Source Code" tab.
- If you want to save your program, go to the "Project" menu and save it.
- You can directly execute your program without saving it by clicking on on "Execute" button.
User Input
The latest version of Coding Ground allows to provide program input at run time from the termnial window exactly the same way as you run your program at your own computer. So simply run a program and provide your program input (if any) from the terminal window available in the right side.
Online Haskell Compiler: Keyboard Shortcuts
The following are the keyword shortcut of this Online Haskell Compiler:
Shortcut | Description |
⌘ + Enter | Run the program |
⌘ + S | Save Project (Login Required) |
⇧ + ⌘ + S | Save As Project |
⌘ + P | New Project |
⌘ + G | Share Project |
⌘ + Z | Undo Editing |
⌘ + Y | Redo Editing |
⌘ + A | Select All Text |
⌘ + X | Cut Selected Text |
⌘ + C | Copy Selected Text |
⌘ + V | Paste Copied Text |
⌘ + F | Search Text |
⌘ + ⌥ + F | Replace Text |
Shortcut | Description |
Ctrl + Enter | Run the program |
Ctrl + S | Save Project |
Shift + Ctrl + S | Save As Project |
Ctrl + G | Share Project |
Ctrl + Z | Undo Editing |
Ctrl + Y | Redo Editing |
Ctrl + A | Select All Text |
Ctrl + X | Cut Selected Text |
Ctrl + C | Copy Selected Text |
Ctrl + V | Paste Copied Text |
Ctrl + F | Search Text |
Ctrl + H | Replace Text |
Online Haskell Compiler: Save and Share Haskell Code (Project)
Save Haskell Project Online
You can save your Haskell Project with us so that you can access this project later on. To save a project you will need to create a login Id with us. So before you save a project, please create a login Id using a link given at the top right corner of this page.
Share Haskell Project Online
You can use this feature to share your Haskell Code with your teachers, classmates and colleagues. Just click Share Button and it will create a short link, which can be shared through Email, WhatsApp or even through Social Media. A shared link will be deleted if it has been passive for almost 3 months.
More Features of Online Haskell Compiler
- Theme – You can change the current editor's theme from the "Editor Theme" option under "Settings" menu.
- Font Size – You can change the font size of the editor /compiler from from the "Font Size" option under "Settings" menu.
- Tab Size – You can change the tab size from the "Tab Size" option under "Settings" Menu.
- Show/Hide Line Numbers – You can show/hide the line number with the code from the "Show Line Numbers" or "Hide Line Numbers" option under "Settings" Menu.
- And, many more.
Benefits of Using Online Haskell Compiler
There are several benefits of using the Online Haskell Compiler to run your Haskell code:
- Platform independence: You can run your code from any device without taking care of operating systems.
- Convenience: You don't need to install anything for using this.
- No setup required: There is no need for additional setup to run your code.
- Updated version: Our online compiler/editors/terminals are the latest up-to-date.