{-# LANGUAGE GeneralizedNewtypeDeriving #-}
import Data.Char
import System.Random
import Test.QuickCheck hiding ((.&.))
newtype BigChar = Big Char
deriving (Eq, Show, Random)
instance Arbitrary BigChar where
arbitrary = choose (Big '0', Big '\x10FFFF')
shrink (Big c) = map Big (shrinkChar c)
{- Write a body for shrinkChar below.
Suggested pattern:
0, c * 0.5, c * 0.75, c * 0.875, ... -}
shrinkChar = undefined
Char에 fractional number를 곱하는 가장 올바른 방법이 먼가요
곱하지 않는다
https://gist.github.com/KiJeong-Lim/2d16fafac00417c0c6fb37c33e97240a
일단 좋은 코드 감사영
생각해보니까 비트연산 쓰는 게 출제자의 의도인가?