Trong lịch Thái Lan năm 2017 tương ứng với 2560. Lịch Thái luôn đi trước lịch Gregorian 543 năm.

Các lập trình viên quan sát sẽ lưu ý rằng 2560 bằng 2^9 * 5, nói cách khác, nó có 10 yếu tố chính. Điều này sẽ không xảy ra một lần nữa trong 896 năm nữa! Chúng tôi gọi một năm kiên trì nếu nó có chính xác mười yếu tố chính.

Viết chương trình đưa ra giá trị trung thực nếu năm hiện tại sử dụng lịch Thái Lan, dựa trên đồng hồ hệ thống, là ngoan cường và giá trị falsey khác.

Các trường hợp thử nghiệm:

• Nếu chương trình được chạy trong năm 2017, true
• Nếu chương trình được chạy trong bất kỳ năm nào 2018 đến 2912, false
• Nếu chương trình được chạy trong 2913, true(2913 + 543 = 2^7 * 3^3)

Bash + coreutils, 35 byte

factor $[`date +%Y`+543]|awk NF==11

Đầu ra là một chuỗi không trống (trung thực) hoặc chuỗi rỗng (giả).

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

Phiên bản thay thế: 37 byte.

date -d 543year +%Y|factor|awk NF==11

Không phải là golf, nhưng tôi thích cái này.

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

Làm thế nào nó hoạt động

Ngày mở rộng số học $[+% Y +543]thực hiện date +%Yđể có được năm hiện tại (đầy đủ) và thêm 543 vào năm.

Yếu tố lấy tổng số làm đối số và in ra hệ số nguyên tố: đầu tiên là số được tính, sau đó là danh sách các thừa số nguyên tố riêng lẻ.

Cuối cùng, awk lọc đầu vào, chỉ in các dòng có chính xác 11 trường (số cộng với 10 thừa số nguyên tố).

05AB1E , 10 byte

žg543+ÒgTQ

Hãy thử trực tuyến! hoặc như một bộ thử nghiệm

Giải trình

      Òg     # the number of primefactors with duplicates of
žg           # the current year
  543+       # plus 543
        TQ   # equals 10

CJam , 13 byte

et0=543+mf,A=

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

Giải trình

et0=  e# Get current year.
543+  e# Add 543.
mf    e# Get prime factors with multiplicity.
,     e# Get length.
A=    e# Equals 10?

Toán học, 37 31 byte

^{5 byte được lưu do lanlock4 .}

PrimeOmega[#&@@Date[]+543]==10&

Chức năng ẩn danh. Không có đầu vào và trả lại Truehoặc Falselà đầu ra.

Bình thường, 11 byte

qlP+543.d3T

Thông dịch viên trực tuyến có sẵn ở đây.

Giải trình

       .d3   get current year
   +543      add 543
  P          get prime factors of result
 l           count number of prime factors
q         T  check if equal to 10 (result is implicitly printed)

Japt , 18 14 13 byte

543+Ki¹k l ¥A

Đã lưu 4 byte nhờ vào ETHproductions. Đã lưu 1 byte nhờ obarakon.

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

Python 2 , 92 89 byte

^{-3 byte nhờ Jonathan Allan}

import time
y=time.gmtime()[0]+543
c=i=1
exec"i+=1\nwhile 1>y%i:y/=i;c-=1\n"*y
print-9==c

Hãy thử trực tuyến!
Lặp đi lặp lại cho đến năm, trích xuất (và trích dẫn) các yếu tố chính.
Dòng exec tương đương với:

for i in range(2,y):
 while not(y%i):
  y=y/i
  c=c-1

Octave , 31 byte

nnz(factor(clock()(1)+543))==10

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

Hai thủ thuật được sử dụng ở đây:

• clock()(1)để lập chỉ mục trực tiếp vào đầu ra của clock( clock(1)không hoạt động)
• nnzthay vì numel, vì tất cả các mục được đảm bảo là khác không.

Phiên bản thay thế, cùng số byte

nnz(factor(max(clock)+543))==10

Phiên bản này chỉ có thể được sử dụng trong nhiều năm 30, nhưng rõ ràng không quan tâm đến việc du hành thời gian, bao gồm tất cả các năm mà chương trình có thể được thực thi. Nó hoạt động trong Matlab là tốt.

PHP, 111 68 66

$a=date(Y)+543;for($i=2;$i<$a;)$b+=$a%$i?!++$i:!!$a/=$i;echo$b==9;

trực tiếp đếm số lượng các yếu tố chính.

$a=date(Y)+543;             // current year
for($i=2;$i<$a;)            // while $i lower than the year
$b+=$a%$i?!++$i:!!$a/=$i;   // if $i divides $a: $a/=$i and ++$b | if not: ++$i
echo$b==9;                  // output if it has 10 prime factors

Ý tưởng cũ: 111 90

for($i=1;++$i<1e3;)for($j=1;++$j<1e3;)${$i*$j}=($$i?:1)+($$j?:1);echo${date('Y')+543}==10;

Điều này không sử dụng một phần tử tích hợp chính nhưng về cơ bản là một số nguyên tố đếm để có được số lượng các số nguyên tố của một số <10000. Bản đồ này cho năm 4 chữ số mà PHP cung cấp bằng cách sử dụng date('Y'):

for($i=1;++$i<1e3;)          // for each number smaller sqrt(1e4)
for($j=1;++$j<1e3;)          // do sqrt(1e4) times
${$i*$j}=($$i?:1)+($$j?:1);  // n_factors[i*j] = n_factors[i] + n_factors[j]
echo${date('Y')+543}==10;          // output 1 if the current year has 10 prime factors or nothing if it doesn't

MATL , 14 byte

1&Z'543+Yfn10=

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

1&Z'   % Current year
543+   % Add 543
Yf     % Prime factor decomposition
n      % Number of elements
10=    % Equal to 10? Implicitly display

Mẻ, 123 byte

@set/ay=%date:~-4%+543,n=d=2
:l
@set/ar=y%%d,d+=1
@if %r%==0 set/ay/=d-=1,n+=1
@if %y% gtr 1 goto l
@if %n%==12 echo 1

Bạn có thể giả mạo tập lệnh bằng cách ghi đè thủ công datebiến trước khi chạy nó.

J , 18 byte

Chương trình cơ thể:

10=#q:543+{.6!:0''

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

10= là mười bằng

# kiểm đếm của

q: các yếu tố chính của

543+ số này được thêm vào

{. người đứng đầu (mục đầu tiên, tức là năm) của

6!:0'' ngày (dưới dạng YMD hms)

JavaScript (ES6), 79 75 byte

f=(y=+Date().slice(11,15)+543,d=2,n=10)=>y>1?y%d?f(y,d+1,n):f(y/d,d,n-1):!n

Cổng câu trả lời hàng loạt của tôi. Vượt qua trong năm dương lịch Thái Lan nếu bạn muốn thực hiện một bài kiểm tra cụ thể. Chỉnh sửa: Đã lưu 4 byte nhờ @dandavis.