Lấy cảm hứng từ Chúng tôi đã có một bài kiểm tra đơn vị chỉ một lần thất bại vào Chủ nhật , viết một chương trình hoặc chức năng không có gì ngoài lỗi khi là Chủ nhật và thoát ra một cách duyên dáng vào bất kỳ ngày nào khác.

Quy tắc:

• Không sử dụng đầu vào hoặc hiển thị đầu ra thông qua các phương thức IO thông thường , ngoại trừ in ra STDERR hoặc tương đương với ngôn ngữ của bạn. Bạn được phép in sang STDOUT nếu đó là sản phẩm phụ do lỗi của bạn.
• Một hàm có thể trả về một giá trị vào các ngày không phải chủ nhật miễn là nó không in bất cứ thứ gì
• Chương trình của bạn có thể sử dụng Chủ nhật từ bất kỳ múi giờ hoặc múi giờ địa phương, miễn là phù hợp.
• Lỗi là một cái gì đó làm cho chương trình chấm dứt một cách bất thường , chẳng hạn như chia cho sai số 0 hoặc sử dụng một biến chưa được khởi tạo. Điều này có nghĩa là nếu bất kỳ mã nào được thêm vào sau phần có lỗi, nó sẽ không được thực thi vào Chủ nhật.
  • Bạn cũng có thể sử dụng các câu lệnh tạo lỗi thủ công, tương đương với Python raise.
  • Điều này bao gồm lỗi thời gian chạy, lỗi cú pháp và lỗi trong khi biên dịch (chúc may mắn với điều đó!)
• Trên một lỗi phải có một số dấu hiệu phân biệt nó không có lỗi
• Đây là môn đánh gôn , do đó, số lần rút ngắn nhất trong mỗi ngôn ngữ sẽ thắng!

Tôi sẽ phải đợi đến Chủ nhật để kiểm tra câu trả lời;)

Bash + coreutils, 15 14 byte

`date|grep Su`

Hãy thử trực tuyến!

PHP 7, 12 byte

1%date("w");

Trên PHP 7, nó ném một loại ngoại lệ DivisionByZerovào Chủ nhật. Điều tương tự cũng xảy ra nếu nó được diễn giải bằng HHVM .

Trên PHP 5, nó hiển thị cảnh báo (bật stderr) vào Chủ nhật:

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

Trên bất kỳ phiên bản PHP nào, nó không hiển thị bất cứ thứ gì vào các ngày khác trong tuần.

Chạy bằng CLI:

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

hoặc thử trực tuyến!

Hai byte hơn có thể được vắt bằng cách tách các dấu ngoặc kép ( 1%date(w);) nhưng trigger này thông báo (có thể bị ức chế bởi thiết lập đúng error_reporting = E_ALL & ~E_NOTICEtrong php.ini).

PHP, 15 byte

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

Giả sử cài đặt mặc định .

Đầu ra vào Chủ nhật

Fatal error: Undefined constant 'n' on line 1

Hãy thử trực tuyến!

Java 8, 69 43 34 byte

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

-26 byte nhờ @ OlivierGrégoire .
-9 byte nhờ @Neil .

Giải trình:

Hãy thử nó ở đây.

• v->{...}( tham số không sử dụngVoid null ) ngắn hơn một byte so với ()->{...}(không có tham số).
• new java.util.Date().getDay()sẽ trả về 0-6 cho Chủ Nhật-Thứ Bảy, do đó 1/...sẽ java.lang.ArithmeticException: / by zerobáo lỗi nếu giá trị bằng 0, điều này chỉ xảy ra vào Chủ nhật.

Python 3 , 33 byte

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

Hãy thử trực tuyến!

Python 3 , 50 byte

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

Hãy thử trực tuyến!

Đã lưu ~ 3 byte nhờ Rod .

Bình thường , 8 7 byte

 l-6.d9

Hãy thử trực tuyến!

Giải trình

    .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

Hãy thử trực tuyến!

Điều này sử dụng thực tế là Chủ nhật là ngày cuối cùng trong tuần. dateWeekDaytrả về ngày trong tuần dưới dạng một WeekDayloại, được định nghĩa đơn giản là

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

WeekDaylà một ví dụ Enum, do đó chúng ta có thể sử dụng succvà predđể có được người kế vị hoặc người tiền nhiệm của một ngày trong tuần, ví dụ như succ Mondaysản lượng Tuesday.

Tuy nhiên, Sundaylà mục enum cuối cùng, vì vậy việc gọi succ Sundaykết quả trong lỗi sau:

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

Chỉnh sửa 1: Cảm ơn nimi cho -3 byte!
Chỉnh sửa 2: -11 byte bây giờ các chức năng được cho phép.

Chương trình đầy đủ: 88 81 74 69 66 byte

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

Hãy thử trực tuyến!

purelà cần thiết để nâng kết quả WeekDaytrở lại vào IO Monad. Tuy nhiên, Haskell thấy rằng giá trị không được xuất ra theo bất kỳ cách nào bởi chương trình, vì vậy lười biếng, biểu thức không được đánh giá, vì vậy ngay cả vào Chủ nhật, chương trình sẽ không thất bại. Đây là lý do tại sao $!cần thiết, điều này buộc phải đánh giá ngay cả khi Haskell thường không đánh giá biểu thức.

Cách tiếp cận trước với 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

Hãy thử trực tuyến! Đây là một số nhập khẩu ấn tượng. Thay đổi d<7thành ví dụ d/=5để kiểm tra thất bại vào thứ Sáu. Thất bại với ngoại lệ sau : Non-exhaustive patterns in function c.

05AB1E , 45 44 byte

Vì 05AB1E không được tích hợp sẵn để lấy ngày trong tuần, tôi đã sử dụng Quy tắc của Zeller để tính toán.

In một dòng mới đến stderr trong trường hợp Chủ nhật (có thể quan sát trong chế độ gỡ lỗi trên TIO)

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

Hãy thử trực tuyến!

Giải trình

Công thức chung được sử dụng là
DoW = d + [(13*(m+1))/5] + y + [y/4] + [c/4] - 2*c
ở đâu DoW=day of week, d=day, m=month, y=last 2 digits of year, c=centuryvà và biểu hiện trong ngoặc ( []) là tròn xuống.

Mỗi tháng được sử dụng trong công thức tương ứng với một số, trong đó Jan=13,Feb=14,Mar=3,...,Dec=12
Khi chúng tôi có tháng hiện tại ở định dạng phổ biến hơn, Jan=1,...,Dec=12 chúng tôi chuyển đổi tháng bằng công thức
m = (m0 + 11) % 14 + 1

Là một sản phẩm của tháng ba là tháng đầu tiên, tháng một và tháng hai thuộc về năm trước, vì vậy tính toán để xác định ytrở thành
y = (year - (m0 < 3)) % 100

Giá trị cuối cùng cho DoWchúng tôi nhận được là một int trong đó 0=Sat,1=Sun,...,6=Fri.
Bây giờ chúng tôi có thể ném lỗi một cách rõ ràng nếu kết quả là đúng.

JavaScript, 23 byte

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

Chương trình đầy đủ.

Biến kkhông được xác định.

JavaScript, 20 byte bởi Rick Hitchcock

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

JavaScript, 19 byte bởi apsillers

Date().match`Su`&&k

VBA / VBScript, 22 20 byte

^{_{Lưu được 2 byte nhờ Taylor Scott.}}

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

Điều này nên được chạy trong Cửa sổ ngay lập tức. Weekday()trả về 1 (Chủ nhật) đến 7 (Thứ bảy) vì vậy điều này tạo ra một số chia cho lỗi không vào Chủ nhật. Nếu không, không có đầu ra.

Ruby, 15 byte

1/Time.now.wday

wdaysẽ trả về 0 vào Chủ nhật gây ra lỗi ZeroDivisionError: chia cho 0 lỗi. Ví dụ : 1/Time.new(2018,1,7).wday.

Perl 5 , 13 byte

1/(gmtime)[6]

Hãy thử trực tuyến!

Đã trả lời @ biketire's answerj

xóa 3 byte bằng lời nhắc của @ mik

jq, 42 ký tự

(Mã 39 ký tự + tùy chọn dòng lệnh 3 ký tự)

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

Chỉ cần thử một cách tiếp cận khác ở đây: phân tích số ngày trong tuần (0..6) là số ngày trong tháng (1..31).

Chạy mẫu:

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"

Lưu ý rằng jq chỉ xử lý ngày UTC.

Hãy thử trực tuyến!

C, 35, 34 27 byte

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

-7 byte nhờ vào @MartinEnder và @Dennis

Hãy thử trực tuyến!

VBA 18 byte

Điều này phụ thuộc vào chức năng sẵn có date()trả về số ngày còn lại 1 nếu chia cho 7, do đó có thể là hệ điều hành và / hoặc CPU cụ thể.

a=1/(date mod 7-1)

Nó chạy trong cửa sổ VBA ngay lập tức.

R , 31 byte 30 byte

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

Hãy thử trực tuyến!

Không có đầu ra vào các ngày không chủ nhật, Error: object 'a' not foundchủ nhật.

format(Sys.Date(),'%u')là cách ngắn nhất tôi có thể tìm thấy để có được ngày trong tuần, nó xuất ra số lớp nhân vật cho ngày trong tuần, với 7 cho Chủ nhật. Chúng ta có thể so sánh với một số 7 và nếu thực sự cố gắng sử dụng một đối tượng không xác định.

Đã lưu một byte nhờ Giuseppe!

Ocaml, 46 byte

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

và trong REPL ocaml, chúng ta có thể đạt được tốt hơn bằng cách loại bỏ letvà cuối cùng :():

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

đó là 41 byte (bao gồm 1 byte cho lợi nhuận vận chuyển).

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

Cần các lệnh ngày & thời gian, chỉ từ 84 trở lên.

MATL , 12 byte

vZ'8XOs309>)

Lỗi được tạo ra vào Chủ nhật là:

• Chạy trên Octave:

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

• Chạy trên Matlab:

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

Để đảo ngược hành vi (lỗi vào bất kỳ ngày nào trừ Chủ nhật), hãy thêm ~sau >.

Hãy thử trực tuyến!

Giải trình

Điều này khai thác thực tế rằng

• lập chỉ mục vào một mảng trống với chỉ số logic falselà hợp lệ (và kết quả là một mảng trống, không tạo ra đầu ra); trong khi

• lập chỉ mục với truegây ra lỗi vì mảng thiếu mục nhập đầu tiên.

Mã nhận xét:

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 byte

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

.zd trả về ngày hiện tại. mod thực hiện modulo của ngày hiện tại, trả về một int. Nếu ngày là chủ nhật, .zd mod 7 trả về 1. Nếu 1 = 1, (vào chủ nhật) và lỗi được đưa ra bằng cách sử dụng toán tử 'Để đơn giản, lỗi chỉ là ký tự e.

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

Hãy thử trực tuyến!

Đã lưu 1 byte nhờ Shaggy

Đã lưu 5 byte nhờ Emigna

Đã lưu 1 byte nhờ Kevin Cruijssen

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

May mắn là Chủ nhật được lập chỉ mục 0 trong enum nếu không nó sẽ cần phải là (System.DayOfWeek)7

Groovy , 16 byte

1/new Date().day

Hãy thử trực tuyến!

C,  68  55 byte

Cảm ơn @Ken YN vì đã lưu 13 byte!

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

Hãy thử trực tuyến!

R , 40 byte

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

Hãy thử trực tuyến!

weekdaystrả về ngày trong tuần của ngày, với một đối số tùy chọn abbreviate, rút ​​ngắn Sundaylại Sun, lưu một byte đơn.

stopifnotném một lỗi nếu, đối với mỗi đối số, không phải alllà TRUEvà ném lỗi với một thông báo chỉ ra phần tử đầu tiên không có TRUE, vì vậy lỗi làError: "Sun" is not TRUE

APL (Dyalog) , 23 byte

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

Hãy thử trực tuyến!

Gema , 40 ký tự

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

Phải chỉ định một thông báo lỗi, vì vậy hãy chọn một thông báo ngắn: Triệu S phạm.

Chạy mẫu:

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"trả về ngày hiện tại trong tuần ở định dạng 0-6, trong đó 0 là chủ nhật. Nhận được logic không phải của điều đó chỉ đúng khi ngày trong tuần là 0, vì vậy Chủ nhật. Sau đó, chỉ cần một cơ bản if(a){error()}sẽ đảm bảo rằng chương trình này chỉ có lỗi vào chủ nhật

Hãy thử trực tuyến!

Perl 6 ,  29  21 byte

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

Thử nó

die if now/86400%7+^3

Thử nó

Julia 0,5 , 28 byte

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

Hãy thử trực tuyến!

Điều này không hoạt động với 0,6, nhưng nó làm với 0,4.