結果

問題 No.9002 FizzBuzz（テスト用）
ユーザー torus711
提出日時 2026-01-29 18:55:48
言語 Haskell
(9.14.1)
結果
WA  
実行時間 -
コード長 2,645 bytes
記録
記録タグの例:
初AC ショートコード 純ショートコード 純主流ショートコード 最速実行時間
コンパイル時間 1,393 ms
コンパイル使用メモリ 192,768 KB
実行使用メモリ 7,848 KB
最終ジャッジ日時 2026-01-29 18:55:54
合計ジャッジ時間 1,852 ms
ジャッジサーバーID
（参考情報） 		judge4 / judge3
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
other WA * 4
権限があれば一括ダウンロードができます
コンパイルメッセージ
Loaded package environment from /home/judge/.ghc/x86_64-linux-9.14.1/environments/default
[1 of 2] Compiling Main             ( Main.hs, Main.o )
[2 of 2] Linking a.out

ソースコード

diff #
raw source code 

{-# LANGUAGE BinaryLiterals #-}
{-# LANGUAGE NegativeLiterals #-}
{-# LANGUAGE HexFloatLiterals #-}
{-# LANGUAGE NumericUnderscores #-}

{-# LANGUAGE BangPatterns #-}
{-# LANGUAGE MultiWayIf #-}
{-# LANGUAGE TupleSections #-}
{-# LANGUAGE LambdaCase #-}
{-# LANGUAGE BlockArguments #-}
-- {-# LANGUAGE OverloadedLists #-}   
-- {-# LANGUAGE OverloadedStrings #-}   

{-# LANGUAGE NumDecimals #-}
{-# LANGUAGE ScopedTypeVariables #-}
{-# LANGUAGE FlexibleContexts #-}
{-# LANGUAGE TypeApplications #-}   

{-# OPTIONS_GHC -O2 #-}
{-# OPTIONS_GHC -Wno-tabs #-}

{-# LANGUAGE CPP #-}
-- #define ONLINE_JUDGE

import Control.Applicative
import Control.Arrow
import Control.Monad
import Control.Monad.ST

import Data.Bool
import Data.Bits
import Data.Char

import Data.List hiding ( (!?) )
import Data.Maybe
import Data.Either
import Data.Function

import qualified Data.ByteString.Char8 as B

import Data.Array (Array)
import Data.Array.IArray
import Data.Array.Unboxed (UArray)
import Data.Array.ST.Safe
import Data.Array.MArray
import Data.STRef

import Text.Printf
import Debug.Trace

#ifdef ONLINE_JUDGE
import Control.Monad.Extra
import Data.Tuple.Extra hiding ( (&&&), (***) )
import Data.List.Extra hiding ( (!?) )

import qualified Data.Set as Set
import qualified Data.IntSet as ISet
import qualified Data.Map as Map
import qualified Data.IntMap as IMap
import qualified Data.Sequence as Seq
import Data.Sequence ( (<|), (|>), (><), ViewL(..), ViewR(..) )
#endif

readInt = fst . fromJust . B.readInt <$> B.getLine
readInteger = fst . fromJust . B.readInteger <$> B.getLine
readInts = map ( fst . fromJust . B.readInt ) . B.words <$> B.getLine
readIntegers = map ( fst . fromJust . B.readInteger ) . B.words <$> B.getLine
readStrs = map B.unpack . B.words <$> B.getLine

yesno = bool "No" "Yes"
mp [ a, b ] = ( a, b )

count a as = length $ filter ( == a ) as
countIf f as = length $ filter f as

swapArrayElem a i j = do
	x <- readArray a i
	y <- readArray a j
	writeArray a i y
	writeArray a j x

a !? i
	| inRange ( bounds a ) i = Just $ a ! i
	| otherwise = Nothing

printList :: Show a => [a] -> IO ()
printList = putStrLn . intercalate " " . map show

#ifdef ATCODER
readStr = trim . B.unpack <$> B.getLine

printList2d :: Show a => [[a]] -> IO ()
printList2d = mapM_ printList
printArray2d ass = printList2d $ chunksOf ( x2 - x1 + 1 ) $ elems ass
	where
	( ( _, x1 ), ( _, x2 ) ) = bounds ass
#endif

main = print 0

-- main = do
-- 	n <- readInt
-- 	mapM_ putStrLn $ map f [ 1 .. n ]
-- 
-- f x
-- 	| x `mod` 3 == 0 && x `mod` 5 == 0 = "FizzBuzz"
-- 	| x `mod` 3 == 0 = "Fizz"
-- 	| x `mod` 5 == 0 = "Buzz"
-- 	| otherwise = show x
0