05AB1E , 130 128 133 131 124 123 바이트
žežfžg)V0[Y`UÐ3‹12*+>13*5÷s3‹Xα©т%D4÷®т÷©4÷®·()ćsO7%2@+Y`т‰0Kθ4ÖUD2Qi\28X+ë<7%É31α}‹iY¬>0ëY1¾ǝDÅsD12‹i>1ë\1Dǝ¤>2}}ǝVYI'.¡Q#
나는 마음이 없어
골프 언어 05AB1E의 경우 입력이 .또는 로 포함되어 있는지 여부는 전혀 중요하지 않습니다 -. 그러나 05AB1E에는 Date 객체 또는 계산에 대한 기본 제공 기능이 없습니다. 날짜에 관한 유일한 내장은 오늘의 연 / 월 / 일 /시 / 분 / 초 / 마이크로 초입니다.
이 때문에 거의 모든 코드는 다음 날 수동으로 계산하고 요일을 계산합니다.
내가 Zeller의 공식에서 잊어 버린 부분으로 인해 +5 바이트
온라인으로 시도 하거나 에뮬레이트 된 자체 지정 날짜 'today'로 온라인으로 시도하십시오 .
설명:
텍스트 벽.
일반적으로 코드는 다음 의사 코드를 따릅니다.
1 Date currentDate = today;
2 Integer counter = 0;
3 Start an infinite loop:
4* If(currentDate is NOT a Saturday and currentDate is NOT a Sunday):
5 Counter += 1;
6* currentDate += 1; // Set currentDate to the next day in line
7 If(currentDate == parsed input-string):
8 Stop the infinite loop, and output the counter
1) Date currentDate = today;05AB1E 프로그램의이 부분입니다.
že # Push today's day
žf # Push today's month
žg # Push today's year
) # Wrap them into a single list
V # Pop and store this list in variable `Y`
2) Integer counter = 0;및 3) Start an infinite loop:은 05AB1E 프로그램에서 간단합니다.
0 # Push 0 to the stack
[ # Start an infinite loop
4) If(currentDate is NOT a Saturday and currentDate is NOT a Sunday):수동 계산의 첫 번째 어려운 부분입니다. 05AB1E에는 날짜 내장 기능이 없으므로 요일을 수동으로 계산 해야합니다.
이를 수행하는 일반적인 공식은 다음과 같습니다.
h=(q+⌊13(m+1)5⌋+K+⌊K4⌋+⌊J4⌋−2J)mod7,
3 월에서 12 월 사이의 위치 :
- q 은 ISday (달
[1, 31])
- m 은 1 인덱싱 된month (
[3, 12])
- K 는 세기의 해입니다 (yearmod100 )
- J 0 인덱싱 세기이다 (⌊year100⌋)
그리고 1 월과 2 월 동안 :
- q 은 ISday (달
[1, 31])
- m 은 1- 인덱싱 된month+12 (
[13, 14])입니다.
- K 는 전년도의 세기입니다(year−1)mod100 )
- J 는 전년도의 인덱스가없는 세기입니다 (⌊year−1100⌋ )
요일에 결과 h , 0 = 토요일, 1 = 일요일, ..., 6 = 금요일입니다.
출처 : 젤러의 합동
우리는 이것을 05AB1E 프로그램의이 부분에서 볼 수 있습니다 :
Y # Push variable `Y`
` # Push the day, month, and year to the stack
U # Pop and save the year in variable `X`
Ð # Triplicate the month
3‹ # Check if the month is below 3 (Jan. / Feb.),
# resulting in 1 or 0 for truthy/falsey respectively
12* # Multiply this by 12 (either 0 or 12)
+ # And add it to the month
# This first part was to make Jan. / Feb. 13 and 14
> # Month + 1
13* # Multiplied by 13
5÷ # Integer-divided by 5
s3‹ # Check if the month is below 3 again (resulting in 1 / 0)
Xα # Take the absolute difference with the year
© # Store this potentially modified year in the register
т% # mYear modulo-100
D4÷ # mYear modulo-100, integer-divided by 4
®т÷©4÷ # mYear integer-divided by 100, and then integer-divided by 4
®·( # mYear integer-divided by 100, doubled, and then made negative
) # Wrap the entire stack into a list
ć # Extract the head (the counter variable that was also on the stack)
s # Swap so the calculated values above are as list at the top
O # Take the sum of this entire list
7% # And then take modulo-7 to complete the formula,
# resulting in 0 for Saturday, 1 for Sunday, and [2, 6] for [Monday, Friday]
2@ # Check if the day is greater than or equal to 2 (so a working day)
5) Counter += 1; 다시 간단합니다.
# The >=2 check with `2@` results in either 1 for truthy and 0 for falsey
+ # So just adding it to the counter variable is enough
6) currentDate += 1; // Set currentDate to the next day in line 수동으로해야하기 때문에 다시 더 복잡합니다. 따라서 이것은 다음 의사 코드로 확장됩니다.
a Integer isLeapYear = ...;
b Integer daysInCurrentMonth = currentDate.month == 2 ?
c 28 + isLeapYear
d :
e 31 - (currentDate.month - 1) % 7 % 2;
f If(currentDate.day < daysInCurrentMonth):
g nextDate.day += 1;
h Else:
i nextDate.day = 1;
j If(currentDate.month < 12):
k nextDate.month += 1;
l Else:
m nextDate.month = 1;
n nextDate.year += 1;
출처 :
연도가 윤년인지 결정하기위한 알고리즘. (편집 : 7 바이트를 절약 한 윤년을 확인 하기 위해 다른 방법 을 사용 하기 때문에 더 이상 관련이 없습니다 .)
한 달의 일 수를 결정하는 알고리즘.
Integer isLeapYear = ...;6AB ) 는 05AB1E 프로그램에서 다음과 같이 수행됩니다.
Y # Push variable `Y`
` # Push the days, month and year to the stack
т‰ # Divmod the year by 100
0K # Remove all items "00" (or 0 when the year is below 100)
θ # Pop the list, and leave the last item
4Ö # Check if this number is visible by 4
U # Pop and save the result in variable `X`
이 05AB1E 내 답변 에도 사용 되었으므로 몇 가지 예가 단계를 설명하기 위해 추가되었습니다.
6b) currentDate.month == 2 ?및 6c) 28 + isLeapYear는 다음과 같이 수행됩니다.
D # Duplicate the month that is now the top of the stack
2Q # Check if it's equal to 2
i # And if it is:
\ # Remove the duplicated month from the top of the stack
28X+ # Add 28 and variable `X` (the isLeapYear) together
6d) :및 6e) 31 - (currentDate.month - 1) % 7 % 2;는 다음과 같이 수행됩니다.
ë # Else:
< # Month - 1
7% # Modulo-7
É # Is odd (shortcut for %2)
31 # Push 31
α # Absolute difference between both
} # Close the if-else
6f) If(currentDate.day < daysInCurrentMonth):는 다음과 같이 수행됩니다.
‹ # Check if the day that is still on the stack is smaller than the value calculated
i # And if it is:
6g) nextDate.day += 1;는 다음과 같이 수행됩니다.
Y # Push variable `Y`
¬ # Push its head, the days (without popping the list `Y`)
> # Day + 1
0 # Push index 0
# (This part is done after the if-else clauses to save bytes)
}} # Close the if-else clauses
ǝ # Insert the day + 1 at index 0 in the list `Y`
V # Pop and store the updated list in variable `Y` again
6h) Else:및 6i)nextDate.day = 1; 는 다음과 같이 수행됩니다.
ë # Else:
Y # Push variable `Y`
1 # Push a 1
¾ # Push index 0
ǝ # Insert 1 at index 0 (days part) in the list `Y`
6j) If(currentDate.month < 12)::
D # Duplicate the list `Y`
Ås # Pop and push its middle (the month)
D12‹ # Check if the month is below 12
i # And if it is:
6k) nextDate.month += 1;:
> # Month + 1
1 # Push index 1
# (This part is done after the if-else clauses to save bytes)
}} # Close the if-else clauses
ǝ # Insert the month + 1 at index 1 in the list `Y`
V # Pop and store the updated list in variable `Y` again
Else:6l ) , 6m) nextDate.month = 1;및 6n) nextDate.year += 1;은 다음과 같이 수행됩니다.
ë # Else:
\ # Delete the top item on the stack (the duplicated month)
1 # Push 1
D # Push index 1 (with a Duplicate)
ǝ # Insert 1 at index 1 (month part) in the list `Y`
¤ # Push its tail, the year (without popping the list `Y`)
> # Year + 1
2 # Index 2
# (This part is done after the if-else clauses to save bytes)
}} # Close the if-else clauses
ǝ # Insert the year + 1 at index 2 in the list `Y`
V # Pop and store the updated list in variable `Y` again
그리고 마지막으로 8) If(currentDate == parsed input-string):과 9) Stop the infinite loop, and output the counter:
Y # Push variable `Y`
I # Push the input
'.¡ '# Split it on dots
Q # Check if the two lists are equal
# # And if they are equal: stop the infinite loop
# (And output the top of the stack (the counter) implicitly)
