sorceress
/
aoc2021
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

unneeded imports

This commit is contained in:
Agatha Lovelace 2021-12-13 19:46:02 +02:00
parent 84eaa42c9a
commit 442a194899
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
Day13_1.hs
View File

@ -2,8 +2,7 @@ module Day13_1 where
import System.IO (openFile) import System.IO (openFile)
import Data.Text (unpack, splitOn, pack) import Data.Text (unpack, splitOn, pack)
import Prelude hiding (splitAt) import Prelude hiding (splitAt)
import Data.Char (digitToInt) import Data.List (nub)
import Data.List (nub, transpose)
splitAt :: String -> String -> [String] splitAt :: String -> String -> [String]
splitAt delimiter str = map unpack $ splitOn (pack delimiter) $ pack str splitAt delimiter str = map unpack $ splitOn (pack delimiter) $ pack str
@ -45,4 +44,4 @@ main = do
let display x let display x
| x `elem` result = '#' | x `elem` result = '#'
| otherwise = ' ' | otherwise = ' '
in putStrLn $ insert (width+1) '\n' $ map display field in putStrLn $ insert (width+1) '\n' $ map display field