Last active
November 7, 2023 11:50
-
-
Save nobsun/122e7e4b59843aaea75792a796fcde04 to your computer and use it in GitHub Desktop.
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
# This file was automatically generated by 'stack init' | |
# | |
# Some commonly used options have been documented as comments in this file. | |
# For advanced use and comprehensive documentation of the format, please see: | |
# https://docs.haskellstack.org/en/stable/yaml_configuration/ | |
# Resolver to choose a 'specific' stackage snapshot or a compiler version. | |
# A snapshot resolver dictates the compiler version and the set of packages | |
# to be used for project dependencies. For example: | |
# | |
# resolver: lts-21.13 | |
# resolver: nightly-2023-09-24 | |
# resolver: ghc-9.6.2 | |
# | |
# The location of a snapshot can be provided as a file or url. Stack assumes | |
# a snapshot provided as a file might change, whereas a url resource does not. | |
# | |
# resolver: ./custom-snapshot.yaml | |
# resolver: https://example.com/snapshots/2023-01-01.yaml | |
resolver: | |
url: https://raw.githubusercontent.com/commercialhaskell/stackage-snapshots/master/lts/21/19.yaml | |
# User packages to be built. | |
# Various formats can be used as shown in the example below. | |
# | |
# packages: | |
# - some-directory | |
# - https://example.com/foo/bar/baz-0.0.2.tar.gz | |
# subdirs: | |
# - auto-update | |
# - wai | |
packages: [] | |
# Dependency packages to be pulled from upstream that are not in the resolver. | |
# These entries can reference officially published versions as well as | |
# forks / in-progress versions pinned to a git hash. For example: | |
# | |
# extra-deps: | |
# - acme-missiles-0.3 | |
# - git: https://github.com/commercialhaskell/stack.git | |
# commit: e7b331f14bcffb8367cd58fbfc8b40ec7642100a | |
# | |
# extra-deps: [] | |
# Override default flag values for local packages and extra-deps | |
# flags: {} | |
# Extra package databases containing global packages | |
# extra-package-dbs: [] | |
# Control whether we use the GHC we find on the path | |
# system-ghc: true | |
# | |
# Require a specific version of Stack, using version ranges | |
# require-stack-version: -any # Default | |
# require-stack-version: ">=2.13" | |
# | |
# Override the architecture used by Stack, especially useful on Windows | |
# arch: i386 | |
# arch: x86_64 | |
# | |
# Extra directories used by Stack for building | |
# extra-include-dirs: [/path/to/dir] | |
# extra-lib-dirs: [/path/to/dir] | |
# | |
# Allow a newer minor version of GHC than the snapshot specifies | |
# compiler-check: newer-minor |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
{-# LANGUAGE FlexibleInstances #-} | |
{-# LANGUAGE BangPatterns #-} | |
{-# LANGUAGE ScopedTypeVariables #-} | |
module Main where | |
import qualified Data.ByteString.Char8 as B | |
import Data.Maybe ( fromJust ) | |
import Data.Array | |
import Data.List | |
main :: IO () | |
main = B.interact (encode . solve . decode) | |
solve :: [[Int]] -> [[Int]] | |
solve dss = case dss of | |
_ -> undefined | |
-- | |
class InterfaceForOJS a where | |
readB :: B.ByteString -> a | |
readBs :: B.ByteString -> [a] | |
readBs = map readB . B.words | |
decode :: B.ByteString -> [[a]] | |
decode = map readBs . B.lines | |
showB :: a -> B.ByteString | |
showBs :: [a] -> B.ByteString | |
showBs = B.unwords . map showB | |
encode :: [[a]] -> B.ByteString | |
encode = B.unlines . map showBs | |
instance InterfaceForOJS B.ByteString where | |
readB = id | |
readBs = B.words | |
showB = id | |
showBs = B.unwords | |
instance InterfaceForOJS Int where | |
readB = readInt | |
showB = showInt | |
instance InterfaceForOJS String where | |
readB = readStr | |
showB = showStr | |
instance InterfaceForOJS Double where | |
readB = readDbl | |
showB = showDbl | |
instance InterfaceForOJS Char where | |
readB = B.head | |
showB = B.singleton | |
readBs = B.unpack | |
showBs = B.pack | |
readInt :: B.ByteString -> Int | |
readInt = fst . fromJust . B.readInt | |
showInt :: Int -> B.ByteString | |
showInt = B.pack . show | |
readStr :: B.ByteString -> String | |
readStr = B.unpack | |
showStr :: String -> B.ByteString | |
showStr = B.pack | |
readDbl :: B.ByteString -> Double | |
readDbl = read . B.unpack | |
showDbl :: Double -> B.ByteString | |
showDbl = B.pack . show |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment