mirror of
https://github.com/sharkdp/bat.git
synced 2024-09-06 03:21:28 +02:00
48 lines
1.2 KiB
Plaintext
48 lines
1.2 KiB
Plaintext
|
\documentclass{article}
|
||
|
|
||
|
\begin{document}
|
||
|
|
||
|
\section*{Introduction}
|
||
|
|
||
|
Text outside code environments should follow TeX/LaTeX highlighting.
|
||
|
|
||
|
The code environment delimiters themselves should be highlighted.
|
||
|
|
||
|
Text inside code environments should follow regular Haskell highlighting.
|
||
|
|
||
|
\begin{code}
|
||
|
import Data.List
|
||
|
import System.Environment
|
||
|
import Text.Printf
|
||
|
|
||
|
twoSumN :: Int -> [Int] -> [Int]
|
||
|
twoSumN _ [] = []
|
||
|
twoSumN n (x : xs) | (n - x) `elem` xs = [x, n - x]
|
||
|
| otherwise = twoSumN n xs
|
||
|
|
||
|
threeSumN :: Int -> [Int] -> [Int]
|
||
|
threeSumN _ [] = []
|
||
|
threeSumN n (x : xs) | null partial = threeSumN n xs
|
||
|
| otherwise = x : partial
|
||
|
where partial = twoSumN (n - x) xs
|
||
|
\end{code}
|
||
|
|
||
|
Text in-between code environments.
|
||
|
% LaTeX comment.
|
||
|
|
||
|
\begin{code}
|
||
|
output :: String -> IO ()
|
||
|
output path = do
|
||
|
input <- sort . map read . filter (not . null) . lines <$> readFile path
|
||
|
printf "File: %s\n" path
|
||
|
printf " Part 1: %d\n" . product . twoSumN 2020 $ input
|
||
|
printf " Part 2: %d\n" . product . threeSumN 2020 $ input
|
||
|
|
||
|
-- Haskell comment inside code environment.
|
||
|
|
||
|
main :: IO ()
|
||
|
main = getArgs >>= mapM_ output
|
||
|
\end{code}
|
||
|
|
||
|
\end{document}
|