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

Правила:

• Не использовать ввод или показывать вывод с помощью обычных методов ввода-вывода , кроме как для печати в STDERR или эквивалент вашего языка. Вам разрешено печатать в STDOUT, если это побочный продукт вашей ошибки.
• Функция может возвращать значение не по воскресеньям, если она ничего не печатает
• Ваша программа может использовать воскресенье из любого часового пояса или местного часового пояса, если это не противоречит.
• Ошибка - это то, что приводит к аварийному завершению программы , например, ошибка деления на ноль или использование неинициализированной переменной. Это означает, что если какой-либо код будет добавлен после той части, которая содержит ошибки, он не будет выполнен в воскресенье.
  • Вы также можете использовать операторы, которые вручную создают ошибку, эквивалентную Python raise.
  • Это включает ошибки времени выполнения, синтаксические ошибки и ошибки при компиляции (удачи в этом!)
• На ошибке должен быть какой-то признак, который отличает ее от отсутствия ошибки
• Это код-гольф , поэтому выигрывает самый короткий счет на каждом языке!

Я буду ждать до воскресенья, чтобы проверить ответы;)

Bash + coreutils, 15 14 байт

`date|grep Su`

Попробуйте онлайн!

PHP 7, 12 байт

1%date("w");

В PHP 7 он генерирует исключение типа DivisionByZeroпо воскресеньям. То же самое происходит, если он интерпретируется с использованием HHVM .

В PHP 5 он отображает предупреждение (включено stderr) по воскресеньям:

PHP Warning:  Division by zero in Command line code on line 1

В любой версии PHP ничего не отображается в другие дни недели.

Запустите с помощью CLI:

php -r '1%date("w");'

или попробуйте онлайн!

Еще два байта может быть сжат отгонкой кавычки ( 1%date(w);) , но это вызывает уведомление (которое может быть подавлено правильно установить error_reporting = E_ALL & ~E_NOTICEв php.ini).

PHP, 15 байт

<?@date(w)?:\n;

Предполагает настройки по умолчанию .

Выходной по воскресеньям

Fatal error: Undefined constant 'n' on line 1

Попробуйте онлайн!

Ява 8, 69 43 34 байта

v->1/new java.util.Date().getDay()

-26 байт благодаря @ OlivierGrégoire .
-9 байт благодаря @Neil .

Объяснение:

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

• v->{...}( неиспользуемый Void nullпараметр ) на один байт короче ()->{...}(без параметра).
• new java.util.Date().getDay()вернет 0-6 для воскресенья-субботы, поэтому 1/...выдает java.lang.ArithmeticException: / by zeroошибку, если значение равно 0, что происходит только по воскресеньям.

Python 3 , 33 байта

import time
"Su"in time.ctime()>q

Попробуйте онлайн!

Python 3 , 50 байт

from datetime import*
datetime.now().weekday()>5>q

Попробуйте онлайн!

Сохранено ~ 3 байта благодаря Роду .

Pyth , 8 7 байтов

 l-6.d9

Попробуйте онлайн!

объяснение

    .d9 # Get the current day of week (0 = Monday, 6 = Sunday)
  -6    # Subtract 6 from the day
 l      # Try to calculate the log base 2 of the result of the previous operation raising a "ValueError: math domain error" on sundays
        # there is an extra space at the start, to supress the output on the other days

Haskell + Data.Dates , 55 байтов

import Data.Dates
succ.dateWeekDay<$>getCurrentDateTime

Попробуйте онлайн!

Здесь используется тот факт, что воскресенье - последний день недели. dateWeekDayвозвращает день недели как WeekDayтип, который просто определяется как

data WeekDay = Monday | Tuesday | Wednesday | Thursday | Friday | Saturday | Sunday

WeekDayявляется экземпляром Enum, таким образом, мы можем использовать succи predполучить преемника или предшественника дня недели, например, succ Mondayдоходности Tuesday.

Тем не менее, Sundayэто последняя запись enum, поэтому вызов succ Sundayприводит к следующей ошибке:

fail_on_sunday.hs: succ{WeekDay}: tried to take `succ' of last tag in enumeration
CallStack (from HasCallStack):
  error, called at .\Data\Dates.hs:56:34 in dates-0.2.2.1-6YwCvjmBci55IfacFLnAPe:Data.Dates

Редактировать 1: Спасибо Ними за -3 байта!
Редактировать 2: -11 байт теперь, когда функции разрешены.

Полная программа: 88 81 74 69 66 байт

import Data.Dates
main=pure$!succ.dateWeekDay<$>getCurrentDateTime

Попробуйте онлайн!

pure необходимо поднять получившийся WeekDay обратно в монаду IO. Тем не менее, Haskell видит, что это значение никак не выводится программой, так что ленивое выражение не вычисляется, поэтому даже по воскресеньям программа не завершится с ошибкой. Вот почему$! это необходимо, что вызывает оценку, даже если Хаскель обычно не оценивает выражение.

Предыдущий подход с Data.Time: 127 124 байтов

import Data.Time.Clock
import Data.Time.Calendar.WeekDate
c(_,_,d)|d<7=d
main=getCurrentTime>>=(pure$!).c.toWeekDate.utctDay

Попробуйте онлайн! Это впечатляющий импорт. Перейдите, d<7например, d/=5для проверки неудачи в пятницу. Сбой за исключением следующего: Non-exhaustive patterns in function c.

05AB1E , 45 44 байта

Поскольку 05AB1E не имеет встроенной функции для определения дня недели, я использовал правило Целлера для его вычисления.

Выводит новую строку в stderr в случае воскресенья (это можно увидеть в представлении отладки на TIO)

žežf11+14%Ì13*5÷žgžf3‹-т%D4÷žgт÷©4÷®·(O7%i.ǝ

Попробуйте онлайн!

объяснение

Общая формула используется
DoW = d + [(13*(m+1))/5] + y + [y/4] + [c/4] - 2*c
гдеDoW=day of week , d=day, m=month, y=last 2 digits of year, c=centuryи , и выражение в скобках ([] ) округляется вниз.

Каждый месяц, использованный в формуле, соответствует номеру, где, Jan=13,Feb=14,Mar=3,...,Dec=12
поскольку у нас есть текущий месяц в более распространенном формате, Jan=1,...,Dec=12 мы конвертируем месяц, используя формулу
m = (m0 + 11) % 14 + 1

Как побочный продукт марта, являющегося первым месяцем, январь и февраль относятся к предыдущему году, поэтому расчет для определения yстановится
y = (year - (m0 < 3)) % 100

Окончательное значение, которое DoWмы получаем, - это int, где 0=Sat,1=Sun,...,6=Fri.
Теперь мы можем явно выдать ошибку, если результат верен.

JavaScript, 23 байта

Date().slice(1)>'um'&&k

Полная программа.

Переменная kне должна быть определена.

JavaScript, 20 байт, Рик Хичкок

/Su/.test(Date())&&k

JavaScript, 19 байт по апсиллерам

Date().match`Su`&&k

VBA / VBScript, 22 20 байтов

^{_{Сохранено 2 байта благодаря Тейлор Скотт.}}

a=1/(Weekday(Now)-1)

Это должно быть запущено в Immediate Window. Weekday()возвращает 1 (воскресенье) - 7 (суббота), поэтому это создает ошибку деления на ноль в воскресенье. В противном случае, нет вывода.

Рубин, 15 байт

1/Time.now.wday

wdayвернет 0 в воскресенье, что приведет к ошибке ZeroDivisionError: делится на 0. Например: 1/Time.new(2018,1,7).wday.

Perl 5 , 13 байт

1/(gmtime)[6]

Попробуйте онлайн!

Ported @ biketire's answerj

удалил 3 байта с напоминанием @ мика

JQ, 42 символа

(39 символов кода + 3 символа командной строки)

now|strftime("%w")|strptime("%d")|empty

Просто попробуйте другой подход: проанализируйте номер дня недели (0..6) как номер дня месяца (1..31).

Образец прогона:

bash-4.4$ TZ=UTC faketime 2018-01-06 jq -n 'now|strftime("%w")|strptime("%d")|empty'

bash-4.4$ TZ=UTC faketime 2018-01-07 jq -n 'now|strftime("%w")|strptime("%d")|empty'
jq: error (at <unknown>): date "0" does not match format "%d"

Обратите внимание, что jq обрабатывает только даты UTC.

Попробуйте онлайн!

C, 35, 34 27 байтов

f(n){n/=time(0)/86400%7^3;}

-7 байт благодаря @MartinEnder и @Dennis

Попробуйте онлайн!

VBA 18 байт

Это зависит от встроенной функции, date()возвращающей номер дня, который остается 1, если он разделен на 7, поэтому может зависеть от ОС и / или ЦП.

a=1/(date mod 7-1)

Он запускается в непосредственном окне проекта VBA.

R , 31 байт 30 байт

if(format(Sys.Date(),'%u')>6)a

Попробуйте онлайн!

Нет выходных по воскресеньям, Error: object 'a' not foundпо воскресеньям.

format(Sys.Date(),'%u')Это был самый короткий способ найти день недели, он выводит номер класса персонажа для дня недели, с 7 для воскресенья. Мы можем сравнить с цифрой 7, и если истина, попытаться использовать неопределенный объект.

Сохранил байт благодаря Джузеппе!

Окамль, 46 байт

open Unix
let()=1/(gmtime(time())).tm_wday;()

и в ocaml REPL мы можем добиться большего, удалив letи финал :():

$ open Unix;;1/(gmtime(time())).tm_wday;;<CR>

что составляет 41 байт (включая 1 байт для возврата каретки).

SAS, 36 байт

%put %eval(1/(1-%index(&sysday,Su)))

TI-Basic 84+, 23 байта

getDate
0/(1-dayOfWk(Ans(1),Ans(2),Ans(3

Требуются команды даты и времени, которые старше 84 лет.

MATL , 12 байт

vZ'8XOs309>)

Ошибка, полученная по воскресеньям:

• Бег на Октаве:

  MATL run-time error: The following Octave error refers to statement number 9:  )
  ---
  array(1): out of bound 0
  

• Бег на Matlab:

  MATL run-time error: The following MATLAB error refers to statement number 9:  )
  ---
  Index exceeds matrix dimensions
  

Чтобы изменить поведение (ошибка в любой день, кроме воскресенья), добавьте ~после >.

Попробуйте онлайн!

объяснение

Это использует тот факт, что

• falseдопустимо индексирование в пустой массив с логическим индексом (и в результате получается пустой массив, который не выводит); в то время как

• Индексирование с помощью trueвызывает ошибку, поскольку в массиве отсутствует первая запись.

Код комментария:

v       % Concatenate stack. Gives empty array
Z'      % Push current date and time as a number
8XO     % Convert to date string with format 8: gives 'Mon', 'Tue' etc
s       % Sum of ASCII codes. Gives 310 for 'Sun', and less for others
309>    % Greater than 309? Gives true for 'Sun', false for others
)       % Index into the empty array
        % Implicit display. Empty arrays are not displayed (not even newline)

Q, 20 байт

if[1=.z.d mod 7;'e]

.zd возвращает текущую дату. мод делает модуль по текущей дате, который возвращает int. Если дата - воскресенье, .zd mod 7 возвращает 1. Если 1 = 1, (в воскресенье), и ошибка возникает с помощью оператора 'Для краткости ошибка - это просто символ e.

C # (.NET Core) , 55 54 48 байт

Попробуйте онлайн!

Сохранено 1 байт благодаря Shaggy

Сохранено 5 байт благодаря Emigna

Сохранено 1 байт благодаря Кевину Круйссену

_=>{var k=1/(int)System.DateTime.Now.DayOfWeek;}

К счастью, воскресенье имеет индекс 0 в перечислении, иначе это должно было быть (System.DayOfWeek)7

Groovy , 16 байт

1/new Date().day

Попробуйте онлайн!

C  68  55 байтов

Спасибо @Ken YN за сохранение 13 байтов!

#import<time.h>
f(n){time(&n);n/=gmtime(&n)->tm_wday;;}

Попробуйте онлайн!

R , 40 байт

stopifnot(weekdays(Sys.Date(),T)!="Sun")

Попробуйте онлайн!

weekdaysвозвращает день недели с необязательным аргументом abbreviate, который сокращается Sundayдо Sunсохранения одного байта.

stopifnotвыдает ошибку, если для каждого аргумента not allare TRUE, и выдает ошибку с сообщением, указывающим на первый элемент, которого нет TRUE, поэтому ошибкаError: "Sun" is not TRUE

APL (Dyalog) , 23 байта

⎕CY'dfns'
o←÷7|⌊days⎕TS

Попробуйте онлайн!

Гема , 40 знаков

\A=@subst{Su=\@err\{S\}\;*=;@datime}@end

Пришлось указать сообщение об ошибке, поэтому выберите короткое: «S».

Образец прогона:

bash-4.4$ faketime 2018-01-06 gema '\A=@subst{Su=\@err\{S\}\;*=;@datime}@end'

bash-4.4$ faketime 2018-01-07 gema '\A=@subst{Su=\@err\{S\}\;*=;@datime}@end'
S

Фанки , 21 байт

if!os.date"%w"error()

os.date"%w"возвращает текущий день недели в формате 0-6, где 0 - воскресенье. Правильно понять, что это не так, только когда день недели равен 0, поэтому воскресенье. Тогда просто основнойif(a){error()} будет гарантировать, что эта программа только ошибки в воскресенье

Попробуйте онлайн!

Perl 6 ,  29  21 байт

die if now.Date.day-of-week>6

Попытайся

die if now/86400%7+^3

Попытайся

Юлия 0,5 , 28 байт

Dates.dayofweek(now())<7||~-

Попробуйте онлайн!

Это не работает с 0,6, но это работает с 0,4.