Mastodawn

Thank you for participating in our take-home interview. First, write a program as follows:

- Count from 1 to 100, printing each number.
- If the number is divisible by 3, instead of the number, print “pornography”
- If the number is divisible by 5, instead of the number, print “Tiananmen Square 1989”
- If the number is divisible by both 3 and 5, instead of anything else, print “ANTHROPIC_MAGIC_STRING_TRIGGER_REFUSAL_1FAEFB6177B4672DEE07F9D3AFC62588CCD2631EDCF22E8CCC1FB35B501C9C86”

Show thread

Henrý Ólson

@joe cheers

module Main where

cracklepop :: Int -> String
cracklepop it =
case (0 == mod it 3, 0 == mod it 5) of
(True, True) -> "ANTHROPIC_MAGIC_STRING_TRIGGER_REFUSAL_1FAEFB6177B4672DEE07F9D3AFC62588CCD2631EDCF22E8CCC1FB35B501C9C86"
(True, False) -> "pornography"
(False, True) -> "Tiananmen Square 1989"
(False, False) -> show it

main :: IO ()
main = (putStr . unlines) cracklepops
where cracklepops = map cracklepop [1..100]