Leap Year Finder

Forum Attachments

Leap Year Finder

(account deleted) 10 Sep 2018 13:52

Create a program that finds out whether any year is a leap year or not. Make this as short as possible. The name HAS to be names "LEAP"

My Code

with an astonishing 42 bytes…

PROGRAM:LEAP
Input Y
Y/4
100fPart(Ans
If not(Ans
Y/100
0<10fPart(Ans

Code Break-Down

Y/4

After the user inputs the year, it divides the value by 4.

100fPart(Ans

Multiplies the value by 100, extracting the decimal place.

If not(Ans
Y/100

Checks whether to see if the answer is divisble by 4. If it is, check whether to see if the year input is divisible by 100.

0<10fPart(Ans

If the answer is greater than 0, it is a leap year. Else it is not.

---

This is what it looks like when running the program:

---

Hewwo, my name is Achak Claw. I was formerly BioHazard.

Last edited on 10 Sep 2018 14:15 by (account deleted) Show more

Re: Leap Year Finder

kg583 10 Sep 2018 14:14

Here's one that's 36 bytes:

:Input Y
:fPart(Y/400
:not(Ans)-not(fPart(4Ans))+not(fPart(E2Ans

Again, if Ans is 1, it's a leap year; else, not.

---

The solution to a complex problem is often a simple answer.

Re: Leap Year Finder

(account deleted) 10 Sep 2018 14:16

Good.

---

Hewwo, my name is Achak Claw. I was formerly BioHazard.

Re: Leap Year Finder

Trenly 10 Sep 2018 14:49

I would also make a point that your algorithm is missing a line:

If Y<1582:1→Y

This fixes the fact that any years before 1582 were not gregorian leap years, unless you modify your code to be julian leap years before 1582

Last edited on 10 Sep 2018 14:56 by Trenly Show more

Re: Leap Year Finder

Trenly 10 Sep 2018 14:16

Your algorithm is flawed Bio_Hazard1282 does not match any existing user name. You forgot to account for the divisibility by 400.
If Y=
4n - leap year
100n - common year
400n - leap year

Your code correctly states that 1800 is not a leap year, but 2000 should be a leap year and your code states that it is not.

Last edited on 10 Sep 2018 14:47 by Trenly Show more

Re: Leap Year Finder

(account deleted) 10 Sep 2018 14:41

That is because if any year is divisible by 100, it is NOT a leap year.

---

Hewwo, my name is Achak Claw. I was formerly BioHazard.

Re: Leap Year Finder

Trenly 10 Sep 2018 14:50

But 2000 is divisible by 400, so it is a leap year

Re: Leap Year Finder

(account deleted) 10 Sep 2018 16:35

Ok, I am now confused between EJ and you…

---

Hewwo, my name is Achak Claw. I was formerly BioHazard.

Re: Leap Year Finder

Trenly 10 Sep 2018 16:39

If a year is divisible by 4, it is a leap year. If a year is divisible by 4 and 100, it is not a leap year EXCEPT when it is also divisible by 400.

Re: Leap Year Finder

(account deleted) 10 Sep 2018 18:05

Oh! I am soooooo stupid! xD

---

Hewwo, my name is Achak Claw. I was formerly BioHazard.

Re: Leap Year Finder

lirtosiast 11 Sep 2018 16:13

A routine I wrote years ago at Code Golf SE:

not(fPart(Ans/4/4^not(fPart(sub(Ans

13 bytes of code, plus 9, plus 4 for the name is 26. 29 if you add an Input command as the first line.