Merge pull request #136 from bolivier/bolivier/add-clojure

Add Clojure

Author: andy1li

compiled_starters/clojure/.codecrafters/compile.sh

@@ -0,0 +1,11 @@
+#!/bin/sh
+#
+# This script is used to compile your program on CodeCrafters
+#
+# This runs before .codecrafters/run.sh
+#
+# Learn more: https://codecrafters.io/program-interface
+
+set -e # Exit on failure
+
+clj -T:build

compiled_starters/clojure/.codecrafters/run.sh

@@ -0,0 +1,11 @@
+#!/bin/sh
+#
+# This script is used to run your program on CodeCrafters
+#
+# This runs after .codecrafters/compile.sh
+#
+# Learn more: https://codecrafters.io/program-interface
+
+set -e # Exit on failure
+
+exec java -jar /tmp/codecrafters-build-sqlite-clojure/target.jar "$@"

compiled_starters/clojure/.gitattributes

@@ -0,0 +1 @@
+* text=auto

compiled_starters/clojure/.gitignore

@@ -0,0 +1,18 @@
+# Database files used for testing
+*.db
+
+pom.xml
+pom.xml.asc
+*.jar
+*.class
+/lib/
+/classes/
+/target/
+/checkouts/
+.lein-deps-sum
+.lein-repl-history
+.lein-plugins/
+.lein-failures
+.nrepl-port
+.cpcache/
+deps/

compiled_starters/clojure/README.md

@@ -0,0 +1,77 @@
+![progress-banner](https://codecrafters.io/landing/images/default_progress_banners/sqlite.png)
+
+This is a starting point for Clojure solutions to the
+["Build Your Own SQLite" Challenge](https://codecrafters.io/challenges/sqlite).
+
+In this challenge, you'll build a barebones SQLite implementation that supports
+basic SQL queries like `SELECT`. Along the way we'll learn about
+[SQLite's file format](https://www.sqlite.org/fileformat.html), how indexed data
+is
+[stored in B-trees](https://jvns.ca/blog/2014/10/02/how-does-sqlite-work-part-2-btrees/)
+and more.
+
+**Note**: If you're viewing this repo on GitHub, head over to
+[codecrafters.io](https://codecrafters.io) to try the challenge.
+
+# Passing the first stage
+
+The entry point for your SQLite implementation is in `src/sqlite/core.clj`.
+Study and uncomment the relevant code, and push your changes to pass the first
+stage:
+
+```sh
+git commit -am "pass 1st stage" # any msg
+git push origin master
+```
+
+Time to move on to the next stage!
+
+# Stage 2 & beyond
+
+Note: This section is for stages 2 and beyond.
+
+1. Ensure you have `clj` installed locally
+1. Run `./your_program.sh` to run your program, which is implemented in
+   `src/sqlite/core.clj`.
+1. Commit your changes and run `git push origin master` to submit your solution
+   to CodeCrafters. Test output will be streamed to your terminal.
+
+# Sample Databases
+
+To make it easy to test queries locally, we've added a sample database in the
+root of this repository: `sample.db`.
+
+This contains two tables: `apples` & `oranges`. You can use this to test your
+implementation for the first 6 stages.
+
+You can explore this database by running queries against it like this:
+
+```sh
+$ sqlite3 sample.db "select id, name from apples"
+1|Granny Smith
+2|Fuji
+3|Honeycrisp
+4|Golden Delicious
+```
+
+There are two other databases that you can use:
+
+1. `superheroes.db`:
+   - This is a small version of the test database used in the table-scan stage.
+   - It contains one table: `superheroes`.
+   - It is ~1MB in size.
+1. `companies.db`:
+   - This is a small version of the test database used in the index-scan stage.
+   - It contains one table: `companies`, and one index: `idx_companies_country`
+   - It is ~7MB in size.
+
+These aren't included in the repository because they're large in size. You can
+download them by running this script:
+
+```sh
+./download_sample_databases.sh
+```
+
+If the script doesn't work for some reason, you can download the databases
+directly from
+[codecrafters-io/sample-sqlite-databases](https://github.com/codecrafters-io/sample-sqlite-databases).

compiled_starters/clojure/build.clj

@@ -0,0 +1,21 @@
+(ns build
+  (:gen-class)
+  (:require [clojure.tools.build.api :as b]))
+
+(def lib 'io.codecrafters.sqlite)
+(def class-dir "/tmp/codecrafters-build-sqlite-clojure/classes")
+(def basis (b/create-basis {:project "deps.edn"}))
+(def uber-file "/tmp/codecrafters-build-sqlite-clojure/target.jar")
+
+(defn clean [_] (b/delete {:path "/tmp/codecrafters-build-sqlite-clojure"}))
+
+(defn uber
+  [_]
+  (clean nil)
+  (b/copy-dir {:src-dirs ["src"], :target-dir class-dir})
+  (b/compile-clj
+    {:basis basis, :ns-compile '[sqlite.core], :class-dir class-dir})
+  (b/uber {:class-dir class-dir,
+           :uber-file uber-file,
+           :basis basis,
+           :main 'sqlite.core}))

compiled_starters/clojure/codecrafters.yml

@@ -0,0 +1,11 @@
+# Set this to true if you want debug logs.
+#
+# These can be VERY verbose, so we suggest turning them off
+# unless you really need them.
+debug: false
+
+# Use this to change the Clojure version used to run your code
+# on Codecrafters.
+#
+# Available versions: clojure-1.12.0
+language_pack: clojure-1.12.0

compiled_starters/clojure/deps.edn

@@ -0,0 +1,15 @@
+{
+  :paths ["src"]
+
+  :deps {
+    org.clojure/clojure {:mvn/version "1.12.0"}
+    org.clojure/tools.cli {:mvn/version "1.1.230"}
+  }
+
+  :aliases {
+    :build {
+      :extra-deps {io.github.clojure/tools.build {:mvn/version "0.10.9"}}
+      :exec-fn build/uber
+    }
+  }
+}

compiled_starters/clojure/download_sample_databases.sh

@@ -0,0 +1,9 @@
+#!/bin/sh
+
+echo "Downloading superheroes.db: ~1MB (used in stage 7)"
+curl -Lo superheroes.db https://raw.githubusercontent.com/codecrafters-io/sample-sqlite-databases/master/superheroes.db
+
+echo "Downloading companies.db: ~7MB (used in stage 8)"
+curl -Lo companies.db https://raw.githubusercontent.com/codecrafters-io/sample-sqlite-databases/master/companies.db
+
+echo "Sample databases downloaded."

compiled_starters/clojure/src/sqlite/core.clj

@@ -0,0 +1,30 @@
+(ns sqlite.core
+  (:gen-class)
+  (:require [clojure.java.io :as io]))
+
+(defn lazy-byte-seq [filepath]
+  (let [is (io/input-stream filepath)
+        step (fn step [input-stream]
+               (lazy-seq (let [byte-val (.read input-stream)]
+                           (when (not= byte-val -1)
+                             (cons byte-val (step input-stream))))))]
+    (step is)))
+
+(defn bytes-to-int [bytes]
+  (reduce (fn [acc b] (+ (* acc 256) b))
+          0
+          bytes))
+
+(defn -main [& args]
+;; You can use print statements as follows for debugging, they'll be
+;; visible when running tests.
+  (println "Logs from your program will appear here!")
+;; Uncomment this block to pass the first stage
+;; (let [command (second args)]
+;;   (case command
+;;     ".dbinfo"
+;;     (let [db-file-path (first args)
+;;           contents (lazy-byte-seq db-file-path)
+;;           page-size (bytes-to-int (take 2 (drop 16 contents)))]
+;;       (println (str "database page size: " page-size)))))
+)