stars.hs

{-# LANGUAGE OverloadedStrings #-}

module Main
  where
  
-- import Data.Text as T

main = putStrLn $ f 2


f :: Int -> String
f n
  | n < 0 = mconcat $ take 3 x
  | n > 3 = mconcat $ take 3 y
  | otherwise = mconcat $ take n y <> take (3 - n) x
  where
    x = "&star;" : x
    y = "&starf;" : y

{-# LANGUAGE OverloadedStrings #-}

module Main
  where
  
import Data.Text (Text)
import qualified Data.Text.IO as T

main = T.putStrLn $ f 2


f :: Int -> Text
f n
  | n < 0 = mconcat $ take 3 x
  | n > 3 = mconcat $ take 3 y
  | otherwise = mconcat $ take n y <> take (3 - n) x
  where
    x = "&star;" : x
    y = "&starf;" : y

{-# LANGUAGE OverloadedStrings #-}

module Main
  where
  
import Data.Text as T


main = putStrLn $ unpack $ f 2


f :: Int -> Text
f n
  | n < 0 = mconcat $ Prelude.take 3 x
  | n > 3 = mconcat $ Prelude.take 3 y
  | otherwise = mconcat $ Prelude.take n y <> Prelude.take (3 - n) x
  where
    x = ("&star;" :: Text) : x
    y = ("&starf;" :: Text) : y