P.Y. написав:

▼Прихований текст

-- перетв. аргумент-число на запис числа китайськими ієрогліфами (utf-8)
-- https://en.wikipedia.org/wiki/Chinese_numerals
module Main where

toChinese :: Integer -> String
toChinese 0 = "零" -- або "〇"
toChinese 1 = "一"
toChinese 2 = "二"
toChinese 3 = "三"
toChinese 4 = "四"
toChinese 5 = "五"
toChinese 6 = "六"
toChinese 7 = "七"
toChinese 8 = "八"
toChinese 9 = "九"
toChinese x
 |x>=(10000^11) = toChinese2(x, (10000^11),"载")
 |x>=(10000^10) = toChinese2(x, (10000^10),"正")
 |x>=(10000^9)  = toChinese2(x, (10000^9), "涧")
 |x>=(10000^8)  = toChinese2(x, (10000^8), "沟")
 |x>=(10000^7)  = toChinese2(x, (10000^7), "穰")
 |x>=(10000^6)  = toChinese2(x, (10000^6), "秭")
 |x>=(10000^5)  = toChinese2(x, (10000^5), "垓")
 |x>=(10000^4)  = toChinese2(x, (10000^4), "京")
 |x>=(10000^3)  = toChinese2(x, (10000^3), "兆")
 |x>=(10000^2)  = toChinese2(x, (10000^2), "亿")
 |x>=10000 = toChinese2(x, 10000, "万")
 |x>=1000  = toChinese2(x, 1000,  "千")
 |x>=100   = toChinese2(x, 100,   "百")
 |x>=10    = toChinese2(x, 10,    "十")
 
toChinese2 :: (Integer, Integer, String) -> String
toChinese2 (x, n, symb)
 |x `mod` n == 0                    = toChinese(x `div` n) ++ symb
 |x `mod` n `div` (n `div` 10) == 0 = toChinese(x `div` n) ++ symb ++ "零" ++ toChinese(x `mod` n)
 |otherwise                         = toChinese(x `div` n) ++ symb ++ toChinese(x `mod` n)

main = do
    x<-getLine
    putStrLn(toChinese(read x :: Integer))
    

щиро вам дякую!

єдина людина, яка написала по темі, написала код,
а не тупий флуд-срач!

dot написав:

Гескель.

для чого ви в цю тему флудити власними дурницями прийшли?

тут десь написано "тролі, набігайте в цій темі срати"?
ні, не пише?

вам глибоко пофіг на хаскель(гаскелл), ФП та алгоритми, пофіг на мітап,
і до цього всього ви не у Львові, та (якщо правильно пригадую) не в Україні живете !

так якого чорта ви сюди, в цю тему прийшли?

ця тема створена не для вас, мітап організували та анонсували не для вас,
ніхто сюди не запрошував і тролів загалом, і вас зокрема !

вам щось не подобається?
не подобається, що пишуть та говорять "хаскель", а не "гаскелл"?
вам не подобається, що організатор мітапу -- людина з Харкова, російськомовна?

вам хтось забороняє писати та говорити "гаскелл"?
вам хтось забороняє самостійно організувати хаскель-гаскелл мітап?

ви могли особисто мітап організувати, ще 5-10 років назад (ніт, не могли )
так чого ж не організували?
(це ж питання і до ФакіТрусика)

чого ви тут прийшли срати?
ідіть організовувати власний, "расово правильний" мітап !
і буде вам вся слава, респект, уважуха і подяки,
поклоніння та вигуки "Хайль Гітлер mr. dot !" 

▼Прихований текст

чесно кажучи, я не знаю, як можна українською мовою охарактеризувати оцей ваш неадекватний флуд,
ваш срач не по темі...

оце хіба в інтернеті зустрів відео, у якому коментують отаких тролів, як оце ви

▼Гоблін коментує тролів, російською

https://www.youtube.com/watch?v=QQT3HVWLlHM