Преобразовать время в строку

17

проблема

Однажды, ваш босс подходит к вам и говорит, что ему нужно знать время. Он по-прежнему настаивает на том, чтобы вы указали на часы прямо над вашей головой, и признается, что у него тяжелый дискалькулия , из-за которого он даже не может видеть цифры на часах. Хотя вы все еще удивляетесь, как кто-то, кто не может видеть цифры, может управлять компанией, он говорит вам «что-то с этим делать», что бы это ни было.

Теперь ваша задача - создать программу или функцию, которая при заданном времени ввода с часами и минутами (секунды необязательны) (часы основаны на 24) выводит удобочитаемое английское предложение, которое не содержит цифр.

Нет необходимости выводить секунды.

Например, 08:45:15должен выводитьquarter to nine o'clock AM

Контрольные примеры

00:00:00 > twelve night
12:00:00 > twelve noon
06:00:00 > six o'clock AM
18:00:00 > six o'clock PM
06:15:00 > quarter past six o'clock AM
18:45:00 > quarter to seven o'clock PM
11:30:00 > half past eleven o'clock AM
13:22:00 > twentytwo minutes past one o'clock PM
17:43:00 > seventeen minutes to six o'clock PM
00:09:00 > nine minutes past twelve o'clock AM

правила

Вывод чисел может быть как в форме сорок два, так и в сорок два, в зависимости от того, что вам больше нравится. Стандартные лазейки не допускаются. Конечные переводы строк разрешены, но предложение должно быть в 1 строке.

Входные данные могут быть в любом формате , который вы хотите, например HH:MM:SS, HH,MM,SS, HHMMSS, HH/MM/SSили любой вариант без секунд, но вы должны сделать формат ввода ясно в своем ответе. Не нужно выводить one minuteвместоone minutes

в течение минут от 0 до 30 (включая 0 и 30) вы должны использовать past, а для остальных -to

Поскольку время относительно, выигрывает самый короткий код в байтах.

code-golf  date  conversion 
— Деннис ван Гилс
источник
1
Это выглядит как хороший вызов, но я настоятельно рекомендую убрать бонусы. Если вы точно не знаете, что делаете, то этого нужно избегать при написании задач.
— Денкер
1
Еще два (второстепенных) момента: почему важно, как вы пишете, forty-fiveкогда контрольные примеры четко указывают quarter toна подходящий формат ввода? (просто измените его на сорок два;)) Кроме того, колмогоровская сложность не подходит тегу.
— Санчиз
@sanchises отредактированы. Я неправильно понял тэг Колмогорова и подумал, что это связано с проблемами при выводе любой строки, а не только данной строки.
— Деннис ван Гилс
1
@TimmyD -70% - шутка, я не думал, что кто-нибудь попытается перевести французский в код-гольф. Тем не менее, я чувствую, что отрицательный размер - достойная награда для идеального переводчика французско-английского языка
— Деннис ван Гилс
Это выглядит намного лучше, но нужно еще несколько пояснений по форматированию. В частности в отношении выбора между «прошлым» и «к» - из примеров, это звучит , как вы , желающие использовать только цифры oneв twenty-nine, с quarterзаменой fifteenи halfпредставляя thirty, но это не ясно. Кроме того, для будущих вопросов, я от всей души рекомендую Песочницу, чтобы решить изломы перед публикацией.
— AdmBorkBork

Ответы:

2

Javascript, 384 381 байт

(h,m)=>(o='one,two,three,four,five,six,seven,eight,nine,ten,eleven,twelve,thir,,fif,,,eigh,'.split`,`,o=o.map((x,i)=>i>11?(x||o[i-10])+'teen':x),(a=m>30,t=12,m?(m-30?m%15?((m=a?59-m:m)>=(b=a?19:20)?'twenty'+((m%=b)?o[a?m:m-1]:''):o[a?m:m-1])+' minutes':'quarter':'half')+(a?' to ':' past '):'')+(h%t|m?o[(a?h:(h?h-1:11))%t]+` o'clock ${h>t?'P':'A'}M`:o[11]+(h-t?' night':' noon')))

Показать фрагмент кода

— удален
источник
1
Работает нормально, и даже Perl один удар на 4 байта! Хороший трюк с пятой, восьмой и т. Д. Кстати.
— Деннис ван Гилс
4

LaTeX, 466 байт

\usepackage{fmtcount,etoolbox}\def\x{\the\numexpr}\def\n[#1]{\numberstringnum{#1}}\def\h[#1]{\ifnumequal{#1}{0}{twelve night}{\ifnumequal{#1}{12}{twelve noon}{\ifnumless{#1}{13}{\n[#1] o'clock AM}{\n[\x#1-12\relax] o'clock PM}}}}\def\m[#1]{\ifnumequal{#1}{15}{quarter}{\ifnumequal{#1}{30}{half}{\n[#1] minutes}}}\newcounter{c}\def\f[#1]#2{\ifnumequal{#2}{0}{\h[#1]}{\ifnumless{#2}{31}{\m[#2] past \h[#1]}{\setcounter{c}{\x60-#2\relax}\m[\thec] to \h[\x#1+1\relax]}}}

Просто вызовите макрос \fкак \f[hour]{minutes}, вот некоторые тесты:

\begin{document}

\noindent
\textbf{Test cases:} \\ \\
00:00 = \f[00]{00} \\
12:00 = \f[12]{00} \\
06:00 = \f[6]{00} \\
18:00 = \f[18]{00} \\
06:15 = \f[6]{15} \\
18:45 = \f[18]{45} \\
11:30 = \f[11]{30} \\
13:22 = \f[13]{22} \\
17:43 = \f[17]{43} \\

\noindent
\textbf{More test cases:} \\ \\
00:13 = \f[00]{13} \\
12:12 = \f[12]{12} \\
12:15 = \f[12]{15} \\
11:45 = \f[11]{45} \\
11:41 = \f[11]{41} \\

\end{document}
— боб
источник
Вы знаете, как и где я могу попробовать это? Я пробовал арахноид и папейрию, но они не работали.
— Деннис ван Гилс
@DennisvanGils Я попробовал этот pastebin.com/kdpSQHSb в papeeria, и это сработало.
— Боб
Попробовал его с помощью кода, и это сработало, предполагая, что это не сработало, потому что у меня его не было\documentclass[a4paper,12pt]{article}
— Деннис ван Гилс
3

Python 2, 498 байт

Ввод поступает как аргумент функции. Первый час, а затем минута, оба как целые числа. Результат выводится на экран.

def g(h,m):
 a=lambda x:"twelve one two three four five six seven eigth nine ten eleven".split()[x%12];b=lambda x:a(x)+" o'clock "+["AM","PM"][x>=12]
 if m:
    z=m if m<30else 60-m;print(a(z)if z<13else("twenty"+(a(z-20)if z-20else"")if z>19else"thirteen fourteen fifteen sixteen seventeen eighteen nineteen".split()[z-13])if m%15else"quarter"if m-30else"half")+(" minutes"if m-30and m%15else"")+[" past "+b(h)," to "+b(h+1)][m>30]
 else:print"twelve "+("noon"if h else "night")if h in[0,12]else b(h)

Попробуйте онлайн! (со слегка расширенными тестовыми кейсами)

Это был довольно веселый гольф. Хотя все эти вложенные троицы сводили меня с ума… ^^
Я планировал сделать это в Pyth после этого, но я не думаю, что я в состоянии сделать это в данный момент (или когда-либо).

Ungolfed: 

def ungolfed(h,m):
    toStr=lambda x:"twelve one two three four five six seven eigth nine ten eleven".split()[x%12]
    hour=lambda x:toStr(x)+" o'clock "+["AM","PM"][x>=12]
    minute=lambda x:"twenty"+(toStr(x-20)if x-20else"")if x>19else"thirteen fourteen fifteen sixteen seventeen eighteen nineteen".split()[x-13]

    if m:
        s=""
        if m==30:
            s+="half"
        else:
            if m%15==0:
                s+="quarter"
            else:
                z=m if m<30 else 60-m
                if z<13:
                    s+=toStr(z)
                else:
                    s+=minute(z)
        print s+(" minutes"if m-30and m%15else "")+[" past "+hour(h)," to "+hour(h+1)][m>30]
    else:
        if h in[0,12]:
            print"twelve "+("noon"if h else "night")
        else:
            print hour(h)
— Denker
источник
Вы [x>12]должны быть [x>=12], 12:01 вечера, а не утра
— Деннис ван Гилс
1
@DennisvanGils Хороший улов, спасибо! Починил это. :) Нам, немцам, не очень комфортно с этой вещью AM / PM, я думаю: P
— Denker
Я голландец, так что мне пришлось самому искать это, чтобы быть уверенным.
— Деннис ван Гилс
1

Perl 5, 367 361 385 байт

Искажения 

use integer;$_=<>;~/(\d+):(\d+)/;@b=(one,two,three,four,five,six,seven,eight,nine,ten,eleven,twelve); @x=(@b,thirteen,(map{/fi/?quarter:$_.teen}@b[3..8]),(map{twenty.$_}'',@b[0..8]),half);@y=map{/^q|h/?$_:$_.' minutes'}@x;$s=1-$2/31;$y=abs((-29,0)[$s]+$2%31)-1;$h=$1-$s;print((+-$2?@y[$y].' '.(to,past)[$s].' ':'').@b[$h++%12]." o' clock ".($h%12?(AM,PM)[$h/12]:(night,noon)[$h/12%2]))

Отформатированные и тестовые случаи:

use integer;
map{
    # capture (implicit $_)
    ~/(\d+):(\d+)/;
    # bare words
    @b=(one,two,three,four,five,six,seven,eight,nine,ten,eleven,twelve);
    # construct up to 30
    @x=(@b,thirteen,
       (map{/fi/?quarter:$_.teen}@b[3..8]),
       (map{twenty.$_}'',@b[0..8]),half);
    # quarter/half business
    @y=map{/^q|h/?$_:$_.' minutes'}@x;
    # whether we are to/past
    $s=1-$2/31;
    # num minutes wrapped around
    $y=abs((-29,0)[$s]+$2%31)-1;
    # num hours
    $h=$1-$s;
    #print('$s='.$s."\th=".$h."\th%12=".($h%12)."\n");
    print($_.' > ');
    #minute component
    print((+-$2
          ?@y[$y].' '.(to,past)[$s].' '
          :'')
        # hours
        .@b[$h++%12]
        ." o' clock "
        # Night/Noon
        .($h%12
          ?(AM,PM)[$h/12]
          :(night,noon)[$h/12%2]));
    print "\n"
}
('00:00:00',
 '00:01:00',
 '11:59:00',
 '12:00:00',
 '12:01:00',
 '06:00:00', 
 '18:00:00', 
 '06:15:00', 
 '18:45:00', 
 '11:30:00', 
 '13:22:00', 
 '17:43:00',
 '23:59:59')
— walpen
источник
Похоже, что это дает one minutes to one o' clock nightрезультат за 00:01 вместо one minutes past twelve o'clock AMилиone minutes past twelve night
— Деннис ван Гилс
Ты прав. Я добавил тестовые примеры около 12 раз.
— Уолпен
1

C, 478 байт

*w(i){char*p,*n[]={"","one","two","three","four","five","six","seven","eight","nine","ten","eleven","twelve","thirteen","fourteen","fifteen","sixteen","seventeen","eighteen","nineteen"};return i>19?asprintf(&p,"twenty%s",n[i%20]),p:n[i];}main(m,h){scanf("%d%d",&h,&m);m>30?h++:0;printf("%s%s%s%s%s %s\n",m%15?m>30?w(60-m):w(m):m^30?m?"quarter":"":"half",m%15?" minutes":"",m?m>30?" to ":" past ":"",w((h+11)%12+1),h%12||m?" o'clock":"",h%12||m?h>11?"PM":"AM":h?"noon":"night");}

Тестовые случаи

$ echo "0 0" | ./a.out
twelve night
$ echo "12 0" | ./a.out
twelve noon
$ echo "6 0" | ./a.out
six o'clock AM
$ echo "18 0" | ./a.out
six o'clock PM
$ echo "6 15" | ./a.out
quarter past six o'clock AM
$ echo "18 45" | ./a.out
quarter to seven o'clock PM
$ echo "11 30" | ./a.out
half past eleven o'clock AM
$ echo "13 22" | ./a.out
twentytwo minutes past one o'clock PM
$ echo "17 43" | ./a.out
seventeen minutes to six o'clock PM
$ echo "0 9" | ./a.out
nine minutes past twelve o'clock AM

Попробуй это здесь .

— Коул Камерон
источник
Выглядит хорошо. Также интересно, как 00 00дает правильный вывод, хотя 00:00дает one minutes past twelve o'clock AM, хотя я уверен, что это как-то связано с тем, как вы анализируете ввод.
— Деннис ван Гилс,
Да, он ожидает два целых числа (часы и минуты). scanfвероятно, не разбирает '00: 00', как можно было бы надеяться :)
— Коул Камерон,
0

Пакетный, 779 774 752 749 байт

@echo off
set t=%1
set/ah=%t:~0,2%,m=%t:~3,2%
set p=past
if %m% gtr 30 set p=to&set/am=60-m,h+=1
for %%a in ("one minute.1" quarter.15 half.30)do if %%~xa==.%m% set o=%%~na&goto g
set o=
if %m% gtr 20 set o=twenty-&set/am-=20
for %%a in (one.1 two.2 three.3 four.4 five.5 six.6 seven.7 eight.8 nine.9 ten.10 eleven.11 twelve.12 thirten.13 fourteen.14 sixteen.16 seventeen.17 eighteen.18 nineteen.19 twenty.20)do if %%~xa==.%m% set o=%o%%%~na minutes
:g
if not %m%==0 set o=%o% %p% 
set a= AM
if %h% gtr 12 set a= PM&set/ah%%=12
if %h%==0 (echo %o%twelve night)else if %h%==12 (echo %o%twelve noon)else for %%a in (one.1 two.2 three.3 four.4 five.5 six.6 seven.7 eight.8 nine.9 ten.10 eleven.11)do if %%~xa==.%h% echo %o%%%~na o'clock%a%

Измените вторую строку на set t=%1%time%по умолчанию, указав текущее время, если время не указано.

Изменить: 22 байта сохранены путем оптимизации моих set/aзаявлений. Сохранено 3 байта благодаря @ EʀɪᴋᴛʜᴇGᴏʟғᴇʀ.

Когда я писал свою оригинальную версию, я допустил ошибку, говоря время так, как я бы это сказал, т.е. часы только в точные часы, а также полночь и полдень вместо двенадцати ночи и двенадцати часов дня:

@echo off
set t=%1
set/a h=%t:~0,2%
set/a m=%t:~3,2%
set p=past
if %m% gtr 30 set p=to&set/a m=60-m&set/a h=h+1
for %%a in ("one minute.1" quarter.15 half.30) do if %%~xa==.%m% set o=%%~na&goto g
set o=
if %m% gtr 20 set o=twenty-&set/a m=%m%-20
for %%a in (one.1 two.2 three.3 four.4 five.5 six.6 seven.7 eight.8 nine.9 ten.10 eleven.11 twelve.12 thirten.13 fourteen.14 sixteen.16 seventeen.17 eighteen.18 nineteen.19 twenty.20) do if %%~xa==.%m% set o=%o%%%~na minutes
:g
set o=%o% %p% 
set a= AM
if %h% gtr 12 set a= PM&set/a h=h%%12
if %m%==0 set a= o'clock%a%&set o=
if %h%==0 (echo %o%midnight)else if %h%==12 (echo %o%midday)else for %%a in (one.1 two.2 three.3 four.4 five.5 six.6 seven.7 eight.8 nine.9 ten.10 eleven.11) do if %%~xa==.%h% echo %o%%%~na%a%
— Нил
источник
Ваши 12:00 и 00:00 тесты не работают, они только отражаются, midnightа middayне twelve nightи twelve noon. Мне очень нравится, как вы используете поддельные расширения и имена в вашем цикле for кстати.
— Деннис ван Гилс
2
@DennisvanGils Возможно, есть другие тесты, которые не пройдены; Я исправлю это позже.
— Нил
@DennisvanGils Я думаю, что это работает сейчас, и удобно, что это также короче!
— Нил
Используя наш сайт, вы подтверждаете, что прочитали и поняли нашу Политику в отношении файлов cookie и Политику конфиденциальности.
Licensed under cc by-sa 3.0 with attribution required.