Lukuvälit

input/code.hs:1:1: warning: [-Wunused-imports]
    The import of `Numeric' is redundant
      except perhaps to import instances from `Numeric'
    To import instances alone, use: import Numeric()

input/code.hs:6:1: warning: [-Wmissing-signatures]
    Top-level binding with no type signature:
      is10 :: Show a => a -> Bool

input/code.hs:7:1: warning: [-Wunused-top-binds]
    Defined but not used: `filteredRange'

input/code.hs:7:1: warning: [-Wmissing-signatures]
    Top-level binding with no type signature:
      filteredRange :: (Show a, Enum a) => (a, a) -> [a]

input/code.hs:8:1: warning: [-Wunused-top-binds]
    Defined but not used: `countNumsSlow'

input/code.hs:8:1: warning: [-Wmissing-signatures]
    Top-level binding with no type signature:
      countNumsSlow :: (Show a, Enum a) => (a, a) -> Int

input/code.hs:10:1: warning: [-Wmissing-signatures]
    Top-level binding with no type signature:
      readRange :: IO (Int, Int)

input/code.hs:11:1: warning: [-Wmissing-sig...

import Numeric
import Data.Function
import Data.List
import Control.Category

is10 x = show x & nub & union "01" & sort & (== "01")
filteredRange (a, b) = [a .. b] & filter is10
countNumsSlow (a, b) = [a .. b] & filter is10 & length

readRange = lineToRange <$> getLine
lineToRange x = let [a, b] = words x & map (read :: String -> Int) in (a, b)
readRanges n = repeat readRange & take n & sequence

next10 x = if is10 x then x else next10 (x + 1)
prev10 x = if is10 x then x else prev10 (x - 1)

readBin :: String -> Int
readBin s = s & map digitToInt & foldl accumulate 0
	where
	accumulate x y = x * 2 + y
	digitToInt '0' = 0
	digitToInt '1' = 1

toBin = show >>> readBin
countNums :: (Int, Int) -> Int
countNums (a, b) = (b & prev10 & toBin) - (a & next10 & toBin) + 1

printResult ranges = ranges & map (countNums >>> print) & sequence_

main = do
	n <- readLn :: IO Int
	ranges <- readRanges n
	printResult ranges

Test 1

Group: 1, 2, 3

Verdict: ACCEPTED

Test 2

Group: 1, 2, 3

Verdict: ACCEPTED

Test 3

Group: 1, 2, 3

Verdict: ACCEPTED

Test 4

Group: 1, 2, 3

Verdict: ACCEPTED

Test 5

Group: 1, 2, 3

Verdict: ACCEPTED

Test 6

Group: 1, 2, 3

Verdict: ACCEPTED

Test 7

Group: 1, 2, 3

Verdict: ACCEPTED

Test 8

Group: 1, 2, 3

Verdict: ACCEPTED

Test 9

Group: 1, 2, 3

Verdict: ACCEPTED

Test 10

Group: 1, 2, 3

Verdict: ACCEPTED

Test 11

Group: 1, 2, 3

Verdict: ACCEPTED

Test 12

Group: 1, 2, 3

Verdict: ACCEPTED

Test 13

Group: 2, 3

Verdict: ACCEPTED

Test 14

Group: 2, 3

Verdict: TIME LIMIT EXCEEDED

Test 15

Group: 2, 3

Verdict: ACCEPTED

Test 16

Group: 2, 3

Verdict: TIME LIMIT EXCEEDED

Test 17

Group: 2, 3

Verdict: TIME LIMIT EXCEEDED

Test 18

Group: 2, 3

Verdict: TIME LIMIT EXCEEDED

Test 19

Group: 2, 3

Verdict: ACCEPTED

Test 20

Group: 2, 3

Verdict: ACCEPTED

Test 21

Group: 3

Verdict: TIME LIMIT EXCEEDED

Test 22

Group: 3

Verdict: TIME LIMIT EXCEEDED

Test 23

Group: 3

Verdict: TIME LIMIT EXCEEDED

Test 24

Group: 3

Verdict: TIME LIMIT EXCEEDED

Test 25

Group: 3

Verdict: TIME LIMIT EXCEEDED

Test 26

Group: 3

Verdict: TIME LIMIT EXCEEDED

Test 27

Group: 3

Verdict: TIME LIMIT EXCEEDED

Test 28

Group: 3

Verdict: ACCEPTED