Считаем от 1 000 000 000 000 ₂ до 1 111 111 111 111 ₂

Валентин Н · сентября 8, 2016, 23:48

Python · сентября 9, 2016, 00:10

шосте січня, чверть на другу дня
(7995 хв. від початку року)

Python · сентября 11, 2016, 20:13

2² * 1999 = 7996

Валентин Н · сентября 11, 2016, 20:26

Python · сентября 11, 2016, 23:29

97q86 — дев'ятдев'ят сім дев'яност вісімдев'ят шість
(7998)

Python · сентября 12, 2016, 03:41

七千九百九十九 (7999)

Тайльнемер · сентября 12, 2016, 05:10

ВОСЕМЬ ТЫСЯЧ!

Python · сентября 12, 2016, 05:30

八千零一
(8001)

Spoiler ⇓⇓⇓

Код Выделить


module Main where

pow :: Integer -> Integer -> Integer
pow x 0 = 1
pow x 1 = x
pow x n = (pow x (n-1))*x

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`pow`11) = toChinese2(x, (10000`pow`11),"载")
 |x>=(10000`pow`10) = toChinese2(x, (10000`pow`10),"正")
 |x>=(10000`pow`9)  = toChinese2(x, (10000`pow`9), "涧")
 |x>=(10000`pow`8)  = toChinese2(x, (10000`pow`8), "沟")
 |x>=(10000`pow`7)  = toChinese2(x, (10000`pow`7), "穰")
 |x>=(10000`pow`6)  = toChinese2(x, (10000`pow`6), "秭")
 |x>=(10000`pow`5)  = toChinese2(x, (10000`pow`5), "垓")
 |x>=(10000`pow`4)  = toChinese2(x, (10000`pow`4), "京")
 |x>=(10000`pow`3)  = toChinese2(x, (10000`pow`3), "兆")
 |x>=(10000`pow`2)  = toChinese2(x, (10000`pow`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))

Тайльнемер · сентября 12, 2016, 05:51

8002 = CMMLII _(quatroman)

Python · сентября 12, 2016, 06:06

MMↂIII = 8003

Mercurio · сентября 12, 2016, 06:39

൮൦൦൪

Тайльнемер · сентября 12, 2016, 07:01

8005 = CMMLVI _(quatroman)

Python · сентября 12, 2016, 12:43

八千零六
(8006)

Alexandra A · сентября 12, 2016, 15:06

8007
eight thousand and seven
ottomilasette

Python · сентября 12, 2016, 15:18

八千零八
(8008)

Alexandra A · сентября 12, 2016, 15:24

8009
eight thousand and nine
ottomilanove

Python · сентября 12, 2016, 15:46

八千零一十
(8010)

Hellerick · сентября 12, 2016, 15:52

RAL 8011
091-058-041
#5B3A29
Nussbraun
Nut brown
Brun noisette
Pardo nuez
Marrone noce
Notebruin

Python · сентября 12, 2016, 15:53

八千零一十二
(8012)

Python · сентября 13, 2016, 00:08

八千零一十三
(8013)

Валентин Н · сентября 13, 2016, 10:37

Python · сентября 13, 2016, 16:46

八千零一十五
(8015)

Тайльнемер · сентября 13, 2016, 19:33

8016 г. будет через 6 тысяч лет.

Валентин Н · сентября 13, 2016, 19:40

Python · сентября 13, 2016, 20:01

八千零一十八
(8018)

Лингвофорум

Считаем от 1 000 000 000 000 ₂ до 1 111 111 111 111 ₂

Валентин Н

Python

Python

Валентин Н

Python

Python

Тайльнемер

Python

Тайльнемер

Python

Mercurio

Тайльнемер

Python

Alexandra A

Python

Alexandra A

Python

Hellerick

Python

Python

Валентин Н

Python

Тайльнемер

Валентин Н

Python

Быстрый ответ

Считаем от 1 000 000 000 000 ₂ до 1 111 111 111 111 ₂

Быстрый ответ

Считаем от 1 000 000 000 000 ₂ до 1 111 111 111 111 ₂