Skip to content

Commit cb75c40

Browse files
sanderploegsmasanderploegsma
committedJan 16, 2024
[Clojure] Leap
1 parent d8a9c18 commit cb75c40

File tree

6 files changed

+179
-0
lines changed

6 files changed

+179
-0
lines changed
 

‎clojure/leap/HELP.md

+76
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,76 @@
1+
# Help
2+
3+
## Running the tests
4+
5+
## Clojure CLI
6+
7+
The Clojure exercises on Exercism ship with a `deps.edn` file with a `:test` alias to invoke the [cognitect-labs test-runner](https://github.com/cognitect-labs/test-runner):
8+
9+
``` bash
10+
$ clj -X:test
11+
```
12+
13+
## Leiningen
14+
15+
Leiningen can also be used to run the exercise's test by running the following command from the exercise's directory:
16+
17+
```bash
18+
lein test
19+
```
20+
21+
## REPL
22+
23+
To use the REPL to run the exercise's test, run the following command from the exercise's directory:
24+
25+
```bash
26+
$ clj
27+
```
28+
29+
-or-
30+
31+
```bash
32+
$ lein repl
33+
```
34+
35+
Then `require` the exercise's test namespace and the Clojure test namespace):
36+
37+
```clojure
38+
;; replace <exercise> with the exercise's name
39+
=> (require '<exercise>-test)
40+
```
41+
42+
Then call `run-tests` on `<exercise>-test`:
43+
44+
```clojure
45+
;; replace <exercise> with the exercise's name
46+
=> (clojure.test/run-tests '<exercise>-test)
47+
```
48+
49+
## Submitting your solution
50+
51+
You can submit your solution using the `exercism submit src/leap.clj` command.
52+
This command will upload your solution to the Exercism website and print the solution page's URL.
53+
54+
It's possible to submit an incomplete solution which allows you to:
55+
56+
- See how others have completed the exercise
57+
- Request help from a mentor
58+
59+
## Need to get help?
60+
61+
If you'd like help solving the exercise, check the following pages:
62+
63+
- The [Clojure track's documentation](https://exercism.org/docs/tracks/clojure)
64+
- The [Clojure track's programming category on the forum](https://forum.exercism.org/c/programming/clojure)
65+
- [Exercism's programming category on the forum](https://forum.exercism.org/c/programming/5)
66+
- The [Frequently Asked Questions](https://exercism.org/docs/using/faqs)
67+
68+
Should those resources not suffice, you could submit your (incomplete) solution to request mentoring.
69+
70+
To get help if you're having trouble, you can use one of the following resources:
71+
72+
- [Ask Clojure](https://ask.clojure.org/) Official forum for Clojure Q & A.
73+
- [ClojureDocs](https://clojuredocs.org) A repository of language references and examples by function or keyword.
74+
- [/r/clojure](https://www.reddit.com/r/clojure) is the Clojure subreddit.
75+
- [StackOverflow](http://stackoverflow.com/questions/tagged/clojure) can be used to search for your problem and see if it has been answered already. You can also ask and answer questions.
76+
- [Clojureverse](https://clojureverse.org/) Friendly and inclusive Clojure(Script) Community

‎clojure/leap/README.md

+55
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,55 @@
1+
# Leap
2+
3+
Welcome to Leap on Exercism's Clojure Track.
4+
If you need help running the tests or submitting your code, check out `HELP.md`.
5+
6+
## Instructions
7+
8+
Given a year, report if it is a leap year.
9+
10+
The tricky thing here is that a leap year in the Gregorian calendar occurs:
11+
12+
```text
13+
on every year that is evenly divisible by 4
14+
except every year that is evenly divisible by 100
15+
unless the year is also evenly divisible by 400
16+
```
17+
18+
For example, 1997 is not a leap year, but 1996 is. 1900 is not a leap
19+
year, but 2000 is.
20+
21+
## Notes
22+
23+
Though our exercise adopts some very simple rules, there is more to
24+
learn!
25+
26+
For a delightful, four minute explanation of the whole leap year
27+
phenomenon, go watch [this youtube video][video].
28+
29+
[video]: http://www.youtube.com/watch?v=xX96xng7sAE
30+
31+
## Source
32+
33+
### Created by
34+
35+
- @rubysolo
36+
37+
### Contributed to by
38+
39+
- @AndreaCrotti
40+
- @canweriotnow
41+
- @dkinzer
42+
- @haus
43+
- @jgwhite
44+
- @kytrinyx
45+
- @mathias
46+
- @michalporeba
47+
- @ovidiu141
48+
- @sjwarner-bp
49+
- @verdammelt
50+
- @walkermatt
51+
- @yurrriq
52+
53+
### Based on
54+
55+
JavaRanch Cattle Drive, exercise 3 - http://www.javaranch.com/leap.jsp

‎clojure/leap/deps.edn

+6
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,6 @@
1+
{:aliases {:test {:extra-paths ["test"]
2+
:extra-deps {io.github.cognitect-labs/test-runner
3+
{:git/url "https://github.com/cognitect-labs/test-runner.git"
4+
:sha "705ad25bbf0228b1c38d0244a36001c2987d7337"}}
5+
:main-opts ["-m" "cognitect.test-runner"]
6+
:exec-fn cognitect.test-runner.api/test}}}

‎clojure/leap/project.clj

+4
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,4 @@
1+
(defproject leap "0.1.0-SNAPSHOT"
2+
:description "leap exercise."
3+
:url "https://github.com/exercism/clojure/tree/master/exercises/leap"
4+
:dependencies [[org.clojure/clojure "1.10.0"]])

‎clojure/leap/src/leap.clj

+8
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,8 @@
1+
(ns leap)
2+
3+
(defn leap-year? [year]
4+
(cond (= (mod year 400) 0) true
5+
(= (mod year 100) 0) false
6+
:else (= (mod year 4) 0)
7+
)
8+
)

‎clojure/leap/test/leap_test.clj

+30
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,30 @@
1+
(ns leap-test
2+
(:require [clojure.test :refer [deftest is]]
3+
leap))
4+
5+
(deftest year-not-divisible-by-4
6+
(is (not (leap/leap-year? 2015))))
7+
8+
(deftest year-divisible-by-2-but-not-4
9+
(is (not (leap/leap-year? 1970))))
10+
11+
(deftest year-divisible-by-4-but-not-100
12+
(is (leap/leap-year? 1996)))
13+
14+
(deftest year-divisible-by-4-and-5
15+
(is (leap/leap-year? 1960)))
16+
17+
(deftest year-divisible-by-100-but-not-400
18+
(is (not (leap/leap-year? 2100))))
19+
20+
(deftest year-divisible-by-100-but-not-by-3
21+
(is (not (leap/leap-year? 1900))))
22+
23+
(deftest year-divisible-by-400
24+
(is (leap/leap-year? 2000)))
25+
26+
(deftest year-divisible-by-400-but-not-125
27+
(is (leap/leap-year? 2400)))
28+
29+
(deftest year-divisible-by-200-but-not-by-400
30+
(is (not (leap/leap-year? 1800))))

0 commit comments

Comments
 (0)