From 80685c942f984ccca33d9a594f593b39871657fa Mon Sep 17 00:00:00 2001 From: Jeremy Walker Date: Sat, 7 Nov 2026 17:01:10 +0900 Subject: [PATCH] Add a sign-up snippet The Exercism sign-up page shows this code sample to people who say they can code a little, to check whether they understand coding basics. The maintainers-admin team owns the file. Co-Authored-By: Claude Opus 5.5 --- .github/CODEOWNERS | 3 +++ docs/SIGN_UP_SNIPPET.txt | 8 ++++++++ 2 files changed, 11 insertions(+) create mode 100644 docs/SIGN_UP_SNIPPET.txt diff --git a/.github/CODEOWNERS b/.github/CODEOWNERS index 20408047c..b5b0dfcdd 100644 --- a/.github/CODEOWNERS +++ b/.github/CODEOWNERS @@ -1,6 +1,9 @@ # Code owners .github/CODEOWNERS @exercism/maintainers-admin +# The code sample shown in the code check when people sign up to Exercism +docs/SIGN_UP_SNIPPET.txt @exercism/maintainers-admin + # Changes to `fetch-configlet` should be made in the `exercism/configlet` repo bin/fetch-configlet @exercism/maintainers-admin diff --git a/docs/SIGN_UP_SNIPPET.txt b/docs/SIGN_UP_SNIPPET.txt new file mode 100644 index 000000000..387a75bc4 --- /dev/null +++ b/docs/SIGN_UP_SNIPPET.txt @@ -0,0 +1,8 @@ +(defn most-common-word [text] + (let [[best counts] + (reduce (fn [[best counts] word] + (let [counts (update counts word (fnil inc 0))] + [(if (> (counts word) (get counts best 0)) word best) counts])) + [nil {}] + (str/split (str/lower-case text) #" "))] + (format "\"%s\" appears %d times" best (counts best))))