Ideone.com

download

copy

import Control.Monad
 
main = liftM2 (,) readLn  (replicateM 2 $ fmap (map read . words) getLine) >>= \(r,i) -> let
	o [m,c] = mapM_ putStrLn [unwords [if [x,y] == m then "m" else if [x,y] == c then "C" else if x^2+y^2 <= r^2 then " " else "." | x <- [-r..r]] | y <- [r,r-1.. -r]]
	mice [m,c] = [step m $ (\[x,y] [u,v] -> let t = pi/2/(fromIntegral r - norm m) in [u*cos t-v*sin t,u*sin t+v*cos t]) m $ m.-.c,c]
	cats [m,c] = [m,step c $ m.-.c]
	[(.+.),(.-.)] = map zipWith [(+),(-)] ; norm = sqrt . sum . map (^2)
	step x y = x .+. map (/maximum (map abs y)) y
		in mapM_ (o . map (map round)) $ scanl (flip ($)) i $ cycle [mice,cats,mice,cats,mice,cats,mice,cats,mice,cats,mice,cats,mice]

Runtime error #stdin #stdout 0.01s 6372KB

stdin

copy

10
5 5
-5 -5

stdout

copy

. . . . . . . . . .   . . . . . . . . . .
. . . . . .                   . . . . . .
. . . .                           . . . .
. . .                               . . .
. .                                   . .
. .                           m       . .
.                                       .
.                                       .
.                                       .
.                                       .
                                         
.                                       .
.                                       .
.                                       .
.                                       .
. .       C                           . .
. .                                   . .
. . .                               . . .
. . . .                           . . . .
. . . . . .                   . . . . . .
. . . . . . . . . .   . . . . . . . . . .
. . . . . . . . . .   . . . . . . . . . .
. . . . . .                   . . . . . .
. . . .                           . . . .
. . .                               . . .
. .                           m       . .
. .                                   . .
.                                       .
.                                       .
.                                       .
.                                       .
                                         
.                                       .
.                                       .
.                                       .
.                                       .
. .       C                           . .
. .                                   . .
. . .                               . . .
. . . .                           . . . .
. . . . . .                   . . . . . .
. . . . . . . . . .   . . . . . . . . . .
. . . . . . . . . .   . . . . . . . . . .
. . . . . .                   . . . . . .
. . . .                           . . . .
. . .                               . . .
. .                           m       . .
. .                                   . .
.                                       .
.                                       .
.                                       .
.                                       .
                                         
.                                       .
.                                       .
.                                       .
.           C                           .
. .                                   . .
. .                                   . .
. . .                               . . .
. . . .                           . . . .
. . . . . .                   . . . . . .
. . . . . . . . . .   . . . . . . . . . .
. . . . . . . . . .   . . . . . . . . . .
. . . . . .                   . . . . . .
. . . .                           . . . .
. . .                         m     . . .
. .                                   . .
. .                                   . .
.                                       .
.                                       .
.                                       .
.                                       .
                                         
.                                       .
.                                       .
.                                       .
.           C                           .
. .                                   . .
. .                                   . .
. . .                               . . .
. . . .                           . . . .
. . . . . .                   . . . . . .
. . . . . . . . . .   . . . . . . . . . .
. . . . . . . . . .   . . . . . . . . . .
. . . . . .                   . . . . . .
. . . .                           . . . .
. . .                         m     . . .
. .                                   . .
. .                                   . .
.                                       .
.                                       .
.                                       .
.                                       .
                                         
.                                       .
.                                       .
.             C                         .
.                                       .
. .                                   . .
. .                                   . .
. . .                               . . .
. . . .                           . . . .
. . . . . .                   . . . . . .
. . . . . . . . . .   . . . . . . . . . .
. . . . . . . . . .   . . . . . . . . . .
. . . . . .                   . . . . . .
. . . .                       m   . . . .
. . .                               . . .
. .                                   . .
. .                                   . .
.                                       .
.                                       .
.                                       .
.                                       .
                                         
.                                       .
.                                       .
.             C                         .
.                                       .
. .                                   . .
. .                                   . .
. . .                               . . .
. . . .                           . . . .
. . . . . .                   . . . . . .
. . . . . . . . . .   . . . . . . . . . .
. . . . . . . . . .   . . . . . . . . . .
. . . . . .                   . . . . . .
. . . .                       m   . . . .
. . .                               . . .
. .                                   . .
. .                                   . .
.                                       .
.                                       .
.                                       .
.                                       .
                                         
.                                       .
.             C                         .
.                                       .
.                                       .
. .                                   . .
. .                                   . .
. . .                               . . .
. . . .                           . . . .
. . . . . .                   . . . . . .
. . . . . . . . . .   . . . . . . . . . .
. . . . . . . . . .   . . . . . . . . . .
. . . . . .                   . . . . . .
. . . .                     m     . . . .
. . .                               . . .
. .                                   . .
. .                                   . .
.                                       .
.                                       .
.                                       .
.                                       .
                                         
.                                       .
.             C                         .
.                                       .
.                                       .
. .                                   . .
. .                                   . .
. . .                               . . .
. . . .                           . . . .
. . . . . .                   . . . . . .
. . . . . . . . . .   . . . . . . . . . .
. . . . . . . . . .   . . . . . . . . . .
. . . . . .                   . . . . . .
. . . .                     m     . . . .
. . .                               . . .
. .                                   . .
. .                                   . .
.                                       .
.                                       .
.                                       .
.                                       .
                                         
.               C                       .
.                                       .
.                                       .
.                                       .
. .                                   . .
. .                                   . .
. . .                               . . .
. . . .                           . . . .
. . . . . .                   . . . . . .
. . . . . . . . . .   . . . . . . . . . .
. . . . . . . . . .   . . . . . . . . . .
. . . . . .               m   . . . . . .
. . . .                           . . . .
. . .                               . . .
. .                                   . .
. .                                   . .
.                                       .
.                                       .
.                                       .
.                                       .
                                         
.               C                       .
.                                       .
.                                       .
.                                       .
. .                                   . .
. .                                   . .
. . .                               . . .
. . . .                           . . . .
. . . . . .                   . . . . . .
. . . . . . . . . .   . . . . . . . . . .
. . . . . . . . . .   . . . . . . . . . .
. . . . . .               m   . . . . . .
. . . .                           . . . .
. . .                               . . .
. .                                   . .
. .                                   . .
.                                       .
.                                       .
.                                       .
.                                       .
                  C                      
.                                       .
.                                       .
.                                       .
.                                       .
. .                                   . .
. .                                   . .
. . .                               . . .
. . . .                           . . . .
. . . . . .                   . . . . . .
. . . . . . . . . .   . . . . . . . . . .
. . . . . . . . . .   . . . . . . . . . .
. . . . . .             m     . . . . . .
. . . .                           . . . .
. . .                               . . .
. .                                   . .
. .                                   . .
.                                       .
.                                       .
.                                       .
.                                       .
                  C                      
.                                       .
.                                       .
.                                       .
.                                       .
. .                                   . .
. .                                   . .
. . .                               . . .
. . . .                           . . . .
. . . . . .                   . . . . . .
. . . . . . . . . .   . . . . . . . . . .
. . . . . . . . . .   . . . . . . . . . .
. . . . . .             m     . . . . . .
. . . .                           . . . .
. . .                               . . .
. .                                   . .
. .                                   . .
.                                       .
.                                       .
.                                       .
.                 C                     .
                                         
.                                       .
.                                       .
.                                       .
.                                       .
. .                                   . .
. .                                   . .
. . .                               . . .
. . . .                           . . . .
. . . . . .                   . . . . . .
. . . . . . . . . .   . . . . . . . . . .
. . . . . . . . . .   . . . . . . . . . .
. . . . . .           m       . . . . . .
. . . .                           . . . .
. . .                               . . .
. .                                   . .
. .                                   . .
.                                       .
.                                       .
.                                       .
.                 C                     .
                                         
.                                       .
.                                       .
.                                       .
.                                       .
. .                                   . .
. .                                   . .
. . .                               . . .
. . . .                           . . . .
. . . . . .                   . . . . . .
. . . . . . . . . .   . . . . . . . . . .
. . . . . . . . . .   . . . . . . . . . .
. . . . . .                   . . . . . .
. . . .             m             . . . .
. . .                               . . .
. .                                   . .
. .                                   . .
.                                       .
.                                       .
.                                       .
.                 C                     .
                                         
.                                       .
.                                       .
.                                       .
.                                       .
. .                                   . .
. .                                   . .
. . .                               . . .
. . . .                           . . . .
. . . . . .                   . . . . . .
. . . . . . . . . .   . . . . . . . . . .
. . . . . . . . . .   . . . . . . . . . .
. . . . . .                   . . . . . .
. . . .             m             . . . .
. . .                               . . .
. .                                   . .
. .                                   . .
.                                       .
.                                       .
.                 C                     .
.                                       .
                                         
.                                       .
.                                       .
.                                       .
.                                       .
. .                                   . .
. .                                   . .
. . .                               . . .
. . . .                           . . . .
. . . . . .                   . . . . . .
. . . . . . . . . .   . . . . . . . . . .
. . . . . . . . . .   . . . . . . . . . .
. . . . . .       m           . . . . . .
. . . .                           . . . .
. . .                               . . .
. .                                   . .
. .                                   . .
.                                       .
.                                       .
.                 C                     .
.                                       .
                                         
.                                       .
.                                       .
.                                       .
.                                       .
. .                                   . .
. .                                   . .
. . .                               . . .
. . . .                           . . . .
. . . . . .                   . . . . . .
. . . . . . . . . .   . . . . . . . . . .
. . . . . . . . . .   . . . . . . . . . .
. . . . . .       m           . . . . . .
. . . .                           . . . .
. . .                               . . .
. .                                   . .
. .                                   . .
.                                       .
.                 C                     .
.                                       .
.                                       .
                                         
.                                       .
.                                       .
.                                       .
.                                       .
. .                                   . .
. .                                   . .
. . .                               . . .
. . . .                           . . . .
. . . . . .                   . . . . . .
. . . . . . . . . .   . . . . . . . . . .
. . . . . . . . . .   . . . . . . . . . .
. . . . . .                   . . . . . .
. . . .         m                 . . . .
. . .                               . . .
. .                                   . .
. .                                   . .
.                                       .
.                 C                     .
.                                       .
.                                       .
                                         
.                                       .
.                                       .
.                                       .
.                                       .
. .                                   . .
. .                                   . .
. . .                               . . .
. . . .                           . . . .
. . . . . .                   . . . . . .
. . . . . . . . . .   . . . . . . . . . .
. . . . . . . . . .   . . . . . . . . . .
. . . . . .                   . . . . . .
. . . .         m                 . . . .
. . .                               . . .
. .                                   . .
. .                                   . .
.                 C                     .
.                                       .
.                                       .
.                                       .
                                         
.                                       .
.                                       .
.                                       .
.                                       .
. .                                   . .
. .                                   . .
. . .                               . . .
. . . .                           . . . .
. . . . . .                   . . . . . .
. . . . . . . . . .   . . . . . . . . . .
. . . . . . . . . .   . . . . . . . . . .
. . . . . .   m               . . . . . .
. . . .                           . . . .
. . .                               . . .
. .                                   . .
. .                                   . .
.                 C                     .
.                                       .
.                                       .
.                                       .
                                         
.                                       .
.                                       .
.                                       .
.                                       .
. .                                   . .
. .                                   . .
. . .                               . . .
. . . .                           . . . .
. . . . . .                   . . . . . .
. . . . . . . . . .   . . . . . . . . . .
. . . . . . . . . .   . . . . . . . . . .
. . . . . .   m               . . . . . .
. . . .                           . . . .
. . .                               . . .
. .                                   . .
. .             C                     . .
.                                       .
.                                       .
.                                       .
.                                       .
                                         
.                                       .
.                                       .
.                                       .
.                                       .
. .                                   . .
. .                                   . .
. . .                               . . .
. . . .                           . . . .
. . . . . .                   . . . . . .
. . . . . . . . . .   . . . . . . . . . .
. . . . . . . . . .   . . . . . . . . . .
. . . . . .                   . . . . . .
. . . .     m                     . . . .
. . .                               . . .
. .                                   . .
. .             C                     . .
.                                       .
.                                       .
.                                       .
.                                       .
                                         
.                                       .
.                                       .
.                                       .
.                                       .
. .                                   . .
. .                                   . .
. . .                               . . .
. . . .                           . . . .
. . . . . .                   . . . . . .
. . . . . . . . . .   . . . . . . . . . .
. . . . . . . . . .   . . . . . . . . . .
. . . . . .                   . . . . . .
. . . .     m                     . . . .
. . .                               . . .
. .           C                       . .
. .                                   . .
.                                       .
.                                       .
.                                       .
.                                       .
                                         
.                                       .
.                                       .
.                                       .
.                                       .
. .                                   . .
. .                                   . .
. . .                               . . .
. . . .                           . . . .
. . . . . .                   . . . . . .
. . . . . . . . . .   . . . . . . . . . .
. . . . . . . . . .   . . . . . . . . . .
. . . . . .                   . . . . . .
. . . .                           . . . .
. . .     m                         . . .
. .           C                       . .
. .                                   . .
.                                       .
.                                       .
.                                       .
.                                       .
                                         
.                                       .
.                                       .
.                                       .
.                                       .
. .                                   . .
. .                                   . .
. . .                               . . .
. . . .                           . . . .
. . . . . .                   . . . . . .
. . . . . . . . . .   . . . . . . . . . .
. . . . . . . . . .   . . . . . . . . . .
. . . . . .                   . . . . . .
. . . .                           . . . .
. . .     m                         . . .
. .         C                         . .
. .                                   . .
.                                       .
.                                       .
.                                       .
.                                       .
                                         
.                                       .
.                                       .
.                                       .
.                                       .
. .                                   . .
. .                                   . .
. . .                               . . .
. . . .                           . . . .
. . . . . .                   . . . . . .
. . . . . . . . . .   . . . . . . . . . .
. . . . . . . . . .   . . . . . . . . . .
. . . . . .                   . . . . . .
. . . .                           . . . .
. . .                               . . .
. .     m   C                         . .
. .                                   . .
.                                       .
.                                       .
.                                       .
.                                       .
                                         
.                                       .
.                                       .
.                                       .
.                                       .
. .                                   . .
. .                                   . .
. . .                               . . .
. . . .                           . . . .
. . . . . .                   . . . . . .
. . . . . . . . . .   . . . . . . . . . .
. . . . . . . . . .   . . . . . . . . . .
. . . . . .                   . . . . . .
. . . .                           . . . .
. . .                               . . .
. .         C                         . .
. .     m                             . .
.                                       .
.                                       .
.                                       .
.                                       .
                                         
.                                       .
.                                       .
.                                       .
.                                       .
. .                                   . .
. .                                   . .
. . .                               . . .
. . . .                           . . . .
. . . . . .                   . . . . . .
. . . . . . . . . .   . . . . . . . . . .
. . . . . . . . . .   . . . . . . . . . .
. . . . . .                   . . . . . .
. . . .                           . . . .
. . .                               . . .
. .       C                           . .
. .     m                             . .
.                                       .
.                                       .
.                                       .
.                                       .
                                         
.                                       .
.                                       .
.                                       .
.                                       .
. .                                   . .
. .                                   . .
. . .                               . . .
. . . .                           . . . .
. . . . . .                   . . . . . .
. . . . . . . . . .   . . . . . . . . . .
. . . . . . . . . .   . . . . . . . . . .
. . . . . .                   . . . . . .
. . . .                           . . . .
. . .                               . . .
. .       C                           . .
. .                                   . .
.     m                                 .
.                                       .
.                                       .
.                                       .
                                         
.                                       .
.                                       .
.                                       .
.                                       .
. .                                   . .
. .                                   . .
. . .                               . . .
. . . .                           . . . .
. . . . . .                   . . . . . .
. . . . . . . . . .   . . . . . . . . . .
. . . . . . . . . .   . . . . . . . . . .
. . . . . .                   . . . . . .
. . . .                           . . . .
. . .                               . . .
. .                                   . .
. .     C                             . .
.     m                                 .
.                                       .
.                                       .
.                                       .
                                         
.                                       .
.                                       .
.                                       .
.                                       .
. .                                   . .
. .                                   . .
. . .                               . . .
. . . .                           . . . .
. . . . . .                   . . . . . .
. . . . . . . . . .   . . . . . . . . . .
. . . . . . . . . .   . . . . . . . . . .
. . . . . .                   . . . . . .
. . . .                           . . . .
. . .                               . . .
. .                                   . .
. .     C                             . .
.                                       .
.     m                                 .
.                                       .
.                                       .
                                         
.                                       .
.                                       .
.                                       .
.                                       .
. .                                   . .
. .                                   . .
. . .                               . . .
. . . .                           . . . .
. . . . . .                   . . . . . .
. . . . . . . . . .   . . . . . . . . . .
. . . . . . . . . .   . . . . . . . . . .
. . . . . .                   . . . . . .
. . . .                           . . . .
. . .                               . . .
. .                                   . .
. .                                   . .
.       C                               .
.     m                                 .
.                                       .
.                                       .
                                         
.                                       .
.                                       .
.                                       .
.                                       .
. .                                   . .
. .                                   . .
. . .                               . . .
. . . .                           . . . .
. . . . . .                   . . . . . .
. . . . . . . . . .   . . . . . . . . . .
. . . . . . . . . .   . . . . . . . . . .
. . . . . .                   . . . . . .
. . . .                           . . . .
. . .                               . . .
. .                                   . .
. .                                   . .
.       C                               .
.                                       .
.     m                                 .
.                                       .
                                         
.                                       .
.                                       .
.                                       .
.                                       .
. .                                   . .
. .                                   . .
. . .                               . . .
. . . .                           . . . .
. . . . . .                   . . . . . .
. . . . . . . . . .   . . . . . . . . . .
. . . . . . . . . .   . . . . . . . . . .
. . . . . .                   . . . . . .
. . . .                           . . . .
. . .                               . . .
. .                                   . .
. .                                   . .
.                                       .
.       C                               .
.     m                                 .
.                                       .
                                         
.                                       .
.                                       .
.                                       .
.                                       .
. .                                   . .
. .                                   . .
. . .                               . . .
. . . .                           . . . .
. . . . . .                   . . . . . .
. . . . . . . . . .   . . . . . . . . . .
. . . . . . . . . .   . . . . . . . . . .
. . . . . .                   . . . . . .
. . . .                           . . . .
. . .                               . . .
. .                                   . .
. .                                   . .
.                                       .
.       C                               .
.                                       .
.       m                               .
                                         
.                                       .
.                                       .
.                                       .
.                                       .
. .                                   . .
. .                                   . .
. . .                               . . .
. . . .                           . . . .
. . . . . .                   . . . . . .
. . . . . . . . . .   . . . . . . . . . .
. . . . . . . . . .   . . . . . . . . . .
. . . . . .                   . . . . . .
. . . .                           . . . .
. . .                               . . .
. .                                   . .
. .                                   . .
.                                       .
.                                       .
.       C                               .
.       m                               .
                                         
.                                       .
.                                       .
.                                       .
.                                       .
. .                                   . .
. .                                   . .
. . .                               . . .
. . . .                           . . . .
. . . . . .                   . . . . . .
. . . . . . . . . .   . . . . . . . . . .
. . . . . . . . . .   . . . . . . . . . .
. . . . . .                   . . . . . .
. . . .                           . . . .
. . .                               . . .
. .                                   . .
. .                                   . .
.                                       .
.                                       .
.       C                               .
.                                       .
        m                                
.                                       .
.                                       .
.                                       .
.                                       .
. .                                   . .
. .                                   . .
. . .                               . . .
. . . .                           . . . .
. . . . . .                   . . . . . .
. . . . . . . . . .   . . . . . . . . . .
. . . . . . . . . .   . . . . . . . . . .
. . . . . .                   . . . . . .
. . . .                           . . . .
. . .                               . . .
. .                                   . .
. .                                   . .
.                                       .
.                                       .
.                                       .
.       C                               .
        m                                
.                                       .
.                                       .
.                                       .
.                                       .
. .                                   . .
. .                                   . .
. . .                               . . .
. . . .                           . . . .
. . . . . .                   . . . . . .
. . . . . . . . . .   . . . . . . . . . .
. . . . . . . . . .   . . . . . . . . . .
. . . . . .                   . . . . . .
. . . .                           . . . .
. . .                               . . .
. .                                   . .
. .                                   . .
.                                       .
.                                       .
.                                       .
.       C                               .
                                         
.         m                             .
.                                       .
.                                       .
.                                       .
. .                                   . .
. .                                   . .
. . .                               . . .
. . . .                           . . . .
. . . . . .                   . . . . . .
. . . . . . . . . .   . . . . . . . . . .
. . . . . . . . . .   . . . . . . . . . .
. . . . . .                   . . . . . .
. . . .                           . . . .
. . .                               . . .
. .                                   . .
. .                                   . .
.                                       .
.                                       .
.                                       .
.       C                               .
                                         
.                                       .
.           m                           .
.                                       .
.                                       .
. .                                   . .
. .                                   . .
. . .                               . . .
. . . .                           . . . .
. . . . . .                   . . . . . .
. . . . . . . . . .   . . . . . . . . . .
. . . . . . . . . .   . . . . . . . . . .
. . . . . .                   . . . . . .
. . . .                           . . . .
. . .                               . . .
. .                                   . .
. .                                   . .
.                                       .
.                                       .
.                                       .
.                                       .
          C                              
.                                       .
.           m                           .
.                                       .
.                                       .
. .                                   . .
. .                                   . .
. . .                               . . .
. . . .                           . . . .
. . . . . .                   . . . . . .
. . . . . . . . . .   . . . . . . . . . .
. . . . . . . . . .   . . . . . . . . . .
. . . . . .                   . . . . . .
. . . .                           . . . .
. . .                               . . .
. .                                   . .
. .                                   . .
.                                       .
.                                       .
.                                       .
.                                       .
          C                              
.                                       .
.                                       .
.             m                         .
.                                       .
. .                                   . .
. .                                   . .
. . .                               . . .
. . . .                           . . . .
. . . . . .                   . . . . . .
. . . . . . . . . .   . . . . . . . . . .
. . . . . . . . . .   . . . . . . . . . .
. . . . . .                   . . . . . .
. . . .                           . . . .
. . .                               . . .
. .                                   . .
. .                                   . .
.                                       .
.                                       .
.                                       .
.                                       .
                                         
.         C                             .
.                                       .
.             m                         .
.                                       .
. .                                   . .
. .                                   . .
. . .                               . . .
. . . .                           . . . .
. . . . . .                   . . . . . .
. . . . . . . . . .   . . . . . . . . . .
. . . . . . . . . .   . . . . . . . . . .
. . . . . .                   . . . . . .
. . . .                           . . . .
. . .                               . . .
. .                                   . .
. .                                   . .
.                                       .
.                                       .
.                                       .
.                                       .
                                         
.         C                             .
.                                       .
.               m                       .
.                                       .
. .                                   . .
. .                                   . .
. . .                               . . .
. . . .                           . . . .
. . . . . .                   . . . . . .
. . . . . . . . . .   . . . . . . . . . .
. . . . . . . . . .   . . . . . . . . . .
. . . . . .                   . . . . . .
. . . .                           . . . .
. . .                               . . .
. .                                   . .
. .                                   . .
.                                       .
.                                       .
.                                       .
.                                       .
                                         
.                                       .
.           C                           .
.               m                       .
.                                       .
. .                                   . .
. .                                   . .
. . .                               . . .
. . . .                           . . . .
. . . . . .                   . . . . . .
. . . . . . . . . .   . . . . . . . . . .
. . . . . . . . . .   . . . . . . . . . .
. . . . . .                   . . . . . .
. . . .                           . . . .
. . .                               . . .
. .                                   . .
. .                                   . .
.                                       .
.                                       .
.                                       .
.                                       .
                                         
.                                       .
.           C                           .
.                                       .
.                 m                     .
. .                                   . .
. .                                   . .
. . .                               . . .
. . . .                           . . . .
. . . . . .                   . . . . . .
. . . . . . . . . .   . . . . . . . . . .
. . . . . . . . . .   . . . . . . . . . .
. . . . . .                   . . . . . .
. . . .                           . . . .
. . .                               . . .
. .                                   . .
. .                                   . .
.                                       .
.                                       .
.                                       .
.                                       .
                                         
.                                       .
.                                       .
.             C                         .
.                 m                     .
. .                                   . .
. .                                   . .
. . .                               . . .
. . . .                           . . . .
. . . . . .                   . . . . . .
. . . . . . . . . .   . . . . . . . . . .
. . . . . . . . . .   . . . . . . . . . .
. . . . . .                   . . . . . .
. . . .                           . . . .
. . .                               . . .
. .                                   . .
. .                                   . .
.                                       .
.                                       .
.                                       .
.                                       .
                                         
.                                       .
.                                       .
.             C                         .
.                   m                   .
. .                                   . .
. .                                   . .
. . .                               . . .
. . . .                           . . . .
. . . . . .                   . . . . . .
. . . . . . . . . .   . . . . . . . . . .
. . . . . . . . . .   . . . . . . . . . .
. . . . . .                   . . . . . .
. . . .                           . . . .
. . .                               . . .
. .                                   . .
. .                                   . .
.                                       .
.                                       .
.                                       .
.                                       .
                                         
.                                       .
.                                       .
.               C                       .
.                   m                   .
. .                                   . .
. .                                   . .
. . .                               . . .
. . . .                           . . . .
. . . . . .                   . . . . . .
. . . . . . . . . .   . . . . . . . . . .
. . . . . . . . . .   . . . . . . . . . .
. . . . . .                   . . . . . .
. . . .                           . . . .
. . .                               . . .
. .                                   . .
. .                                   . .
.                                       .
.                                       .
.                                       .
.                                       .
                                         
.                                       .
.                                       .
.               C                       .
.                     m                 .
. .                                   . .
. .                                   . .
. . .                               . . .
. . . .                           . . . .
. . . . . .                   . . . . . .
. . . . . . . . . .   . . . . . . . . . .
. . . . . . . . . .   . . . . . . . . . .
. . . . . .                   . . . . . .
. . . .                           . . . .
. . .                               . . .
. .                                   . .
. .                                   . .
.                                       .
.                                       .
.                                       .
.                                       .
                                         
.                                       .
.                                       .
.                                       .
.                 C   m                 .
. .                                   . .
. .                                   . .
. . .                               . . .
. . . .                           . . . .
. . . . . .                   . . . . . .
. . . . . . . . . .   . . . . . . . . . .
. . . . . . . . . .   . . . . . . . . . .
. . . . . .                   . . . . . .
. . . .                           . . . .
. . .                               . . .
. .                                   . .
. .                                   . .
.                                       .
.                                       .
.                                       .
.                                       .
                                         
.                                       .
.                                       .
.                                       .
.                 C                     .
. .                     m             . .
. .                                   . .
. . .                               . . .
. . . .                           . . . .
. . . . . .                   . . . . . .
. . . . . . . . . .   . . . . . . . . . .
. . . . . . . . . .   . . . . . . . . . .
. . . . . .                   . . . . . .
. . . .                           . . . .
. . .                               . . .
. .                                   . .
. .                                   . .
.                                       .
.                                       .
.                                       .
.                                       .
                                         
.                                       .
.                                       .
.                                       .
.                 C                     .
. .                       m           . .
. .                                   . .
. . .                               . . .
. . . .                           . . . .
. . . . . .                   . . . . . .
. . . . . . . . . .   . . . . . . . . . .
. . . . . . . . . .   . . . . . . . . . .
. . . . . .                   . . . . . .
. . . .                           . . . .
. . .                               . . .
. .                                   . .
. .                                   . .
.                                       .
.                                       .
.                                       .
.                                       .
                                         
.                                       .
.                                       .
.                                       .
.                   C                   .
. .                       m           . .
. .                                   . .
. . .                               . . .
. . . .                           . . . .
. . . . . .                   . . . . . .
. . . . . . . . . .   . . . . . . . . . .
. . . . . . . . . .   . . . . . . . . . .
. . . . . .                   . . . . . .
. . . .                           . . . .
. . .                               . . .
. .                                   . .
. .                                   . .
.                                       .
.                                       .
.                                       .
.                                       .
                                         
.                                       .
.                                       .
.                                       .
.                   C                   .
. .                         m         . .
. .                                   . .
. . .                               . . .
. . . .                           . . . .
. . . . . .                   . . . . . .
. . . . . . . . . .   . . . . . . . . . .
. . . . . . . . . .   . . . . . . . . . .
. . . . . .                   . . . . . .
. . . .                           . . . .
. . .                               . . .
. .                                   . .
. .                                   . .
.                                       .
.                                       .
.                                       .
.                                       .
                                         
.                                       .
.                                       .
.                                       .
.                     C                 .
. .                         m         . .
. .                                   . .
. . .                               . . .
. . . .                           . . . .
. . . . . .                   . . . . . .
. . . . . . . . . .   . . . . . . . . . .
. . . . . . . . . .   . . . . . . . . . .
. . . . . .                   . . . . . .
. . . .                           . . . .
. . .                               . . .
. .                                   . .
. .                                   . .
.                                       .
.                                       .
.                                       .
.                                       .
                                         
.                                       .
.                                       .
.                                       .
.                     C       m         .
. .                                   . .
. .                                   . .
. . .                               . . .
. . . .                           . . . .
. . . . . .                   . . . . . .
. . . . . . . . . .   . . . . . . . . . .
. . . . . . . . . .   . . . . . . . . . .
. . . . . .                   . . . . . .
. . . .                           . . . .
. . .                               . . .
. .                                   . .
. .                                   . .
.                                       .
.                                       .
.                                       .
.                                       .
                                         
.                                       .
.                                       .
.                                       .
.                       C     m         .
. .                                   . .
. .                                   . .
. . .                               . . .
. . . .                           . . . .
. . . . . .                   . . . . . .
. . . . . . . . . .   . . . . . . . . . .
. . . . . . . . . .   . . . . . . . . . .
. . . . . .                   . . . . . .
. . . .                           . . . .
. . .                               . . .
. .                                   . .
. .                                   . .
.                                       .
.                                       .
.                                       .
.                                       .
                                         
.                                       .
.                                       .
.                                       .
.                       C       m       .
. .                                   . .
. .                                   . .
. . .                               . . .
. . . .                           . . . .
. . . . . .                   . . . . . .
. . . . . . . . . .   . . . . . . . . . .
. . . . . . . . . .   . . . . . . . . . .
. . . . . .                   . . . . . .
. . . .                           . . . .
. . .                               . . .
. .                                   . .
. .                                   . .
.                                       .
.                                       .
.                                       .
.                                       .
                                         
.                                       .
.                                       .
.                                       .
.                         C     m       .
. .                                   . .
. .                                   . .
. . .                               . . .
. . . .                           . . . .
. . . . . .                   . . . . . .
. . . . . . . . . .   . . . . . . . . . .
. . . . . . . . . .   . . . . . . . . . .
. . . . . .                   . . . . . .
. . . .                           . . . .
. . .                               . . .
. .                                   . .
. .                                   . .
.                                       .
.                                       .
.                                       .
.                                       .
                                         
.                                       .
.                                       .
.                                 m     .
.                         C             .
. .                                   . .
. .                                   . .
. . .                               . . .
. . . .                           . . . .
. . . . . .                   . . . . . .
. . . . . . . . . .   . . . . . . . . . .
. . . . . . . . . .   . . . . . . . . . .
. . . . . .                   . . . . . .
. . . .                           . . . .
. . .                               . . .
. .                                   . .
. .                                   . .
.                                       .
.                                       .
.                                       .
.                                       .
                                         
.                                       .
.                                       .
.                                 m     .
.                           C           .
. .                                   . .
. .                                   . .
. . .                               . . .
. . . .                           . . . .
. . . . . .                   . . . . . .
. . . . . . . . . .   . . . . . . . . . .
. . . . . . . . . .   . . . . . . . . . .
. . . . . .                   . . . . . .
. . . .                           . . . .
. . .                               . . .
. .                                   . .
. .                                   . .
.                                       .
.                                       .
.                                       .
.                                       .
                                         
.                                       .
.                                   m   .
.                                       .
.                           C           .
. .                                   . .
. .                                   . .
. . .                               . . .
. . . .                           . . . .
. . . . . .                   . . . . . .
. . . . . . . . . .   . . . . . . . . . .
. . . . . . . . . .   . . . . . . . . . .
. . . . . .                   . . . . . .
. . . .                           . . . .
. . .                               . . .
. .                                   . .
. .                                   . .
.                                       .
.                                       .
.                                       .
.                                       .
                                         
.                                       .
.                                   m   .
.                             C         .
.                                       .
. .                                   . .
. .                                   . .
. . .                               . . .
. . . .                           . . . .
. . . . . .                   . . . . . .
. . . . . . . . . .   . . . . . . . . . .
. . . . . . . . . .   . . . . . . . . . .
. . . . . .                   . . . . . .
. . . .                           . . . .
. . .                               . . .
. .                                   . .
. .                                   . .
.                                       .
.                                       .
.                                       .
.                                       .
                                         
.                                   m   .
.                                       .
.                             C         .
.                                       .
. .                                   . .
. .                                   . .
. . .                               . . .
. . . .                           . . . .
. . . . . .                   . . . . . .
. . . . . . . . . .   . . . . . . . . . .
. . . . . . . . . .   . . . . . . . . . .
. . . . . .                   . . . . . .
. . . .                           . . . .
. . .                               . . .
. .                                   . .
. .                                   . .
.                                       .
.                                       .
.                                       .
.                                       .
                                    m    
.                                       .
.                                       .
.                             C         .
.                                       .
. .                                   . .
. .                                   . .
. . .                               . . .
. . . .                           . . . .
. . . . . .                   . . . . . .
. . . . . . . . . .   . . . . . . . . . .
. . . . . . . . . .   . . . . . . . . . .
. . . . . .                   . . . . . .
. . . .                           . . . .
. . .                               . . .
. .                                   . .
. .                                   . .
.                                       .
.                                       .
.                                       .
.                                       .
                                    m    
.                                       .
.                               C       .
.                                       .
.                                       .
. .                                   . .
. .                                   . .
. . .                               . . .
. . . .                           . . . .
. . . . . .                   . . . . . .
. . . . . . . . . .   . . . . . . . . . .
. . . . . . . . . .   . . . . . . . . . .
. . . . . .                   . . . . . .
. . . .                           . . . .
. . .                               . . .
. .                                   . .
. .                                   . .
.                                       .
.                                       .
.                                       .
.                                   m   .
                                         
.                                       .
.                               C       .
.                                       .
.                                       .
. .                                   . .
. .                                   . .
. . .                               . . .
. . . .                           . . . .
. . . . . .                   . . . . . .
. . . . . . . . . .   . . . . . . . . . .
. . . . . . . . . .   . . . . . . . . . .
. . . . . .                   . . . . . .
. . . .                           . . . .
. . .                               . . .
. .                                   . .
. .                                   . .
.                                       .
.                                       .
.                                       .
.                                   m   .
                                         
.                                 C     .
.                                       .
.                                       .
.                                       .
. .                                   . .
. .                                   . .
. . .                               . . .
. . . .                           . . . .
. . . . . .                   . . . . . .
. . . . . . . . . .   . . . . . . . . . .
. . . . . . . . . .   . . . . . . . . . .
. . . . . .                   . . . . . .
. . . .                           . . . .
. . .                               . . .
. .                                   . .
. .                                   . .
.                                       .
.                                       .
.                                   m   .
.                                       .
                                         
.                                 C     .
.                                       .
.                                       .
.                                       .
. .                                   . .
. .                                   . .
. . .                               . . .
. . . .                           . . . .
. . . . . .                   . . . . . .
. . . . . . . . . .   . . . . . . . . . .
. . . . . . . . . .   . . . . . . . . . .
. . . . . .                   . . . . . .
. . . .                           . . . .
. . .                               . . .
. .                                   . .
. .                                   . .
.                                       .
.                                       .
.                                   m   .
.                                       .
                                  C      
.                                       .
.                                       .
.                                       .
.                                       .
. .                                   . .
. .                                   . .
. . .                               . . .
. . . .                           . . . .
. . . . . .                   . . . . . .
. . . . . . . . . .   . . . . . . . . . .
. . . . . . . . . .   . . . . . . . . . .
. . . . . .                   . . . . . .
. . . .                           . . . .
. . .                               . . .
. .                                   . .
. .                                   . .
.                                       .
.                                 m     .
.                                       .
.                                       .
                                  C      
.                                       .
.                                       .
.                                       .
.                                       .
. .                                   . .
. .                                   . .
. . .                               . . .
. . . .                           . . . .
. . . . . .                   . . . . . .
. . . . . . . . . .   . . . . . . . . . .
. . . . . . . . . .   . . . . . . . . . .
. . . . . .                   . . . . . .
. . . .                           . . . .
. . .                               . . .
. .                                   . .
. .                                   . .
.                                       .
.                                 m     .
.                                       .
.                                 C     .
                                         
.                                       .
.                                       .
.                                       .
.                                       .
. .                                   . .
. .                                   . .
. . .                               . . .
. . . .                           . . . .
. . . . . .                   . . . . . .
. . . . . . . . . .   . . . . . . . . . .
. . . . . . . . . .   . . . . . . . . . .
. . . . . .                   . . . . . .
. . . .                           . . . .
. . .                               . . .
. .                                   . .
. .                                   . .
.

https://ideone.com/W03W9Y

language:

Haskell (ghc 8.4.4)

created:

visibility:

secret

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!

Discover > Sphere Engine API

Discover > IDE Widget

Choose your language