Skip to content

Instantly share code, notes, and snippets.

.186
sseg segment stack "stack"
b db 256 dup(?)
sseg ends
dseg segment
x dd 8.0
y dd 2.0
dseg ends
module Main
where
import System.IO
import qualified Data.Set as Set
import Queue
main = do
text <- readFile "wordsShort.txt"
let words = Set.fromList $ lines text