Terinspirasi oleh Kami memiliki unit test satu kali yang hanya gagal pada hari Minggu , menulis sebuah program atau fungsi yang tidak melakukan apa-apa selain melemparkan kesalahan ketika hari Minggu, dan keluar dengan anggun di hari lain.

Aturan:

• Tidak menggunakan input atau menampilkan output melalui metode IO yang biasa , kecuali untuk mencetak ke STDERR atau yang setara dengan bahasa Anda. Anda diizinkan mencetak ke STDOUT jika itu merupakan produk sampingan dari kesalahan Anda.
• Suatu fungsi dapat mengembalikan nilai pada non-Minggu selama itu tidak mencetak apa pun
• Program Anda dapat menggunakan hari Minggu dari zona waktu mana pun, atau zona waktu setempat, selama konsisten.
• Kesalahan adalah sesuatu yang membuat program berhenti secara tidak normal , seperti kesalahan dibagi dengan nol atau menggunakan variabel yang tidak diinisialisasi. Ini berarti bahwa jika ada kode yang ditambahkan setelah bagian kesalahan, itu tidak akan dieksekusi pada hari Minggu.
  • Anda juga dapat menggunakan pernyataan yang secara manual membuat kesalahan, setara dengan Python raise.
  • Ini termasuk kesalahan runtime, kesalahan sintaksis dan kesalahan saat kompilasi (semoga berhasil!)
• Pada kesalahan harus ada beberapa tanda yang membedakannya dari tidak ada kesalahan
• Ini adalah kode-golf , jadi bytecount terpendek di setiap bahasa menang!

Saya harus menunggu sampai hari Minggu untuk memeriksa jawabannya;)

Bash + coreutils, 15 14 byte

`date|grep Su`

Cobalah online!

PHP 7, 12 byte

1%date("w");

Pada PHP 7 itu melempar pengecualian DivisionByZeropada hari Minggu. Hal yang sama terjadi jika ditafsirkan menggunakan HHVM .

Pada PHP 5 ini menampilkan peringatan (aktif stderr) pada hari Minggu:

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

Pada versi PHP apa pun, itu tidak menampilkan apa pun pada hari-hari lain dalam seminggu.

Jalankan menggunakan CLI:

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

atau coba online!

Dua byte lagi dapat diperas oleh pengupasan tanda kutip ( 1%date(w);) tapi pemicu ini pemberitahuan (yang dapat ditekan dengan benar mengatur error_reporting = E_ALL & ~E_NOTICEdi php.ini).

PHP, 15 byte

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

Mengasumsikan pengaturan default .

Output pada hari Minggu

Fatal error: Undefined constant 'n' on line 1

Cobalah online!

Java 8, 69 43 34 byte

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

-26 byte terima kasih kepada @ OlivierGrégoire .
-9 byte terima kasih @Neil .

Penjelasan:

Coba di sini.

• v->{...}( parameter yang tidak digunakanVoid null ) lebih pendek satu byte dari ()->{...}(tidak ada parameter).
• new java.util.Date().getDay()akan mengembalikan 0-6 untuk hari Minggu-Sabtu, jadi 1/...akan memberikan java.lang.ArithmeticException: / by zerokesalahan jika nilainya 0, yang hanya terjadi pada hari Minggu.

Python 3 , 33 byte

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

Cobalah online!

Python 3 , 50 byte

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

Cobalah online!

Disimpan ~ 3 byte berkat Rod .

Pyth , 8 7 byte

 l-6.d9

Cobalah online!

Penjelasan

    .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 byte

import Data.Dates
succ.dateWeekDay<$>getCurrentDateTime

Cobalah online!

Ini menggunakan fakta bahwa hari Minggu adalah hari terakhir dalam seminggu. dateWeekDaymengembalikan hari dalam seminggu sebagai WeekDayjenis, yang hanya didefinisikan sebagai

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

WeekDayadalah contoh dari Enum, dengan demikian kita dapat menggunakan succdan preduntuk mendapatkan penerus atau pendahulu dari hari kerja, misalnya succ Mondayhasil Tuesday.

Namun, Sundayadalah entri enum terakhir, jadi panggilan succ Sundaymenghasilkan kesalahan berikut:

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

Sunting 1: Terima kasih kepada nimi untuk -3 byte!
Edit 2: -11 byte sekarang karena fungsi diizinkan.

Program lengkap: 88 81 74 69 66 byte

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

Cobalah online!

purediperlukan untuk mengangkat hasilnya WeekDaykembali ke IO Monad. Namun, Haskell melihat bahwa nilai tidak dihasilkan dengan cara apa pun oleh program, sehingga malas, ekspresi tidak dievaluasi, sehingga bahkan pada hari Minggu program tidak akan gagal. Inilah mengapa $!diperlukan, yang memaksa evaluasi bahkan jika Haskell biasanya tidak mengevaluasi ekspresi.

Pendekatan sebelumnya dengan Data.Time: 127 124 byte

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

Cobalah online! Ini adalah beberapa impor yang mengesankan. Perubahand<7 ke misalnya d/=5untuk menguji kegagalan pada hari Jumat. Gagal dengan pengecualian berikut: Non-exhaustive patterns in function c.

05AB1E , 45 44 byte

Karena 05AB1E tidak memiliki bawaan untuk mendapatkan hari dalam seminggu, saya telah menggunakan Aturan Zeller untuk menghitungnya.

Mencetak baris baru ke stderr jika hari Minggu (dapat dilihat pada tampilan debug pada TIO)

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

Cobalah online!

Penjelasan

Rumus umum yang digunakan adalah
DoW = d + [(13*(m+1))/5] + y + [y/4] + [c/4] - 2*c
Dimana DoW=day of week, d=day, m=month, y=last 2 digits of year, c=centurydan dan ekspresi dalam kurung ([] ) adalah bulat ke bawah.

Setiap bulan yang digunakan dalam rumus berhubungan dengan angka, di mana Jan=13,Feb=14,Mar=3,...,Dec=12
Seperti kita memiliki bulan saat ini dalam format yang lebih umum, Jan=1,...,Dec=12 kita mengonversi bulan menggunakan rumus
m = (m0 + 11) % 14 + 1

Sebagai biproduct Maret menjadi bulan pertama, Januari dan Februari termasuk tahun sebelumnya, sehingga perhitungan untuk menentukan ymenjadi
y = (year - (m0 < 3)) % 100

Nilai akhir untuk DoWkita dapatkan adalah int di mana 0=Sat,1=Sun,...,6=Fri.
Sekarang kita dapat secara eksplisit melempar kesalahan jika hasilnya benar.

JavaScript, 23 Bytes

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

Program lengkap.

Variabel ktidak boleh didefinisikan.

JavaScript, 20 byte oleh Rick Hitchcock

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

JavaScript, 19 byte oleh apsillers

Date().match`Su`&&k

VBA / VBScript, 22 20 byte

^{_{Disimpan 2 byte berkat Taylor Scott.}}

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

Ini harus dijalankan di Jendela Segera. Weekday()mengembalikan 1 (Minggu) hingga 7 (Sabtu) sehingga ini menciptakan pembagian dengan kesalahan nol pada hari Minggu. Kalau tidak, tidak ada output.

Ruby, 15 byte

1/Time.now.wday

wdayakan mengembalikan 0 pada hari Minggu yang menyebabkan ZeroDivisionError: dibagi dengan 0 kesalahan. Sebagai contoh: 1/Time.new(2018,1,7).wday.

Perl 5 , 13 byte

1/(gmtime)[6]

Cobalah online!

Ported, jawab biketire

dihapus 3 byte dengan pengingat @ mik

jq, 42 karakter

(39 karakter kode + 3 opsi opsi baris perintah)

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

Hanya mencoba pendekatan yang berbeda di sini: parse angka hari minggu (0..6) sebagai angka hari bulan (1..31).

Contoh dijalankan:

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"

Perhatikan bahwa jq hanya menangani tanggal UTC.

Cobalah online!

C, 35, 34 27 byte

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

-7 byte dengan terima kasih kepada @MartinEnder dan @Dennis

Cobalah online!

VBA 18 byte

Ini bergantung pada fungsi inbuilt date()mengembalikan nomor hari yang tersisa 1 jika dibagi 7, jadi mungkin OS dan / atau CPU spesifik.

a=1/(date mod 7-1)

Ini berjalan di jendela proyek VBA Immediate.

R , 31 byte, 30 byte

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

Cobalah online!

Tidak ada output pada non-Minggu, Error: object 'a' not foundpada hari Minggu.

format(Sys.Date(),'%u')adalah cara terpendek yang dapat saya temukan untuk mendapatkan hari kerja, itu menghasilkan nomor kelas karakter untuk hari dalam seminggu, dengan 7 untuk hari Minggu. Kita dapat membandingkan dengan angka 7, dan jika benar mencoba menggunakan objek yang tidak terdefinisi.

Menyimpan satu byte berkat Giuseppe!

Ocaml, 46 byte

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

dan di ocaml REPL, kita dapat mencapai yang lebih baik dengan menghapus letdan final :():

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

yaitu 41 byte (termasuk 1 byte untuk carriage return).

SAS, 36 byte

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

TI-Basic 84+, 23 byte

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

Membutuhkan perintah tanggal & waktu, yang hanya 84+ dan lebih tinggi.

MATL , 12 byte

vZ'8XOs309>)

Kesalahan yang dihasilkan pada hari Minggu adalah:

• Berjalan di Oktaf:

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

• Berjalan di Matlab:

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

Untuk membalikkan perilaku (kesalahan pada hari apa pun kecuali pada hari Minggu), tambahkan ~setelah >.

Cobalah secara Online!

Penjelasan

Ini mengeksploitasi fakta itu

• pengindeksan ke dalam array kosong dengan indeks logis falseadalah valid (dan hasilnya adalah array kosong, yang tidak menghasilkan output); sedangkan

• pengindeksan dengan truemenyebabkan kesalahan karena array tidak memiliki entri pertama.

Kode yang dikomentari:

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 Bytes

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

.zd mengembalikan tanggal saat ini. mod melakukan modulo dari tanggal saat ini, yang mengembalikan int. Jika tanggal adalah hari Minggu, .zd mod 7 mengembalikan 1. Jika 1 = 1, (pada hari Minggu), dan kesalahan dimunculkan menggunakan operator 'Untuk singkatnya, kesalahannya hanya karakter e.

C # (.NET Core) , 55 54 48 byte

Cobalah online!

Disimpan 1 byte berkat Shaggy

Disimpan 5 byte berkat Emigna

Disimpan 1 byte berkat Kevin Cruijssen

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

Beruntung bahwa hari Minggu diindeks 0 di enum atau kalau tidak perlu (System.DayOfWeek)7

Groovy , 16 byte

1/new Date().day

Cobalah online!

C,  68  55 byte

Terima kasih kepada @Ken YN karena telah menghemat 13 byte!

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

Cobalah online!

R , 40 byte

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

Cobalah online!

weekdaysmengembalikan hari kerja dari tanggal, dengan argumen opsional abbreviate, yang memendek Sundayuntuk Sun, menyimpan satu byte.

stopifnotmelempar kesalahan jika, untuk setiap argumen, tidak allada TRUE, dan melempar kesalahan dengan pesan yang menunjukkan elemen pertama yang tidak TRUE, sehingga kesalahannya adalahError: "Sun" is not TRUE

APL (Dyalog) , 23 byte

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

Cobalah online!

Gema , 40 karakter

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

Harus menentukan pesan kesalahan, jadi pilih yang pendek: "S".

Contoh dijalankan:

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

Funky , 21 byte

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

os.date"%w"mengembalikan hari ini dalam seminggu dalam format 0-6, di mana 0 adalah minggu. Mendapatkan logika bukan hanya berlaku ketika hari kerja adalah 0, begitu juga hari Minggu. Maka hanya dasar if(a){error()}akan memastikan bahwa program ini hanya kesalahan pada hari Minggu

Cobalah online!

Perl 6 ,  29  21 byte

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

Cobalah

die if now/86400%7+^3

Cobalah

Julia 0,5 , 28 byte

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

Cobalah online!

Ini tidak bekerja dengan 0,6, tetapi bekerja dengan 0,4.