flyingmachine / pegthing Goto Github PK

I'm sure I can find ways around this but it's a bit annoying :-/

Here is how it goes in the repl:

    Get ready to play peg thing!
    How many rows? [5]
    7
    Here's your board:
             a0
            b0 c0
          d0 e0 f0
         g0 h0 i0 j0
       k0 l0 m0 n0 o0
      p0 q0 r0 s0 t0 u0

    IndexOutOfBoundsException   clojure.lang.RT.nthFrom (RT.java:795)

I believe this is because you're using require not :require, not that the code is even necessary anymore with set being built into clojure.core.

I've been following along with the book Clojure for the Brave and True and I've noticed a few issues. In the book examples, (require) is used, when it should be (:require).

Additionally, some of the functions are referred to in the book, but their code is not shown in the book itself (e.g. colorize, strings-as-characters, etc.) Perhaps the tutorial is meant to go along with the code repo (which does work), but I was trying to build it from scratch using only the examples in the book and I couldn't get it to compile without downloading this repo and changing certain things and copying over the missing functions.

In project.clj I updated :dependencies [[org.clojure/clojure "1.10.1"]]. Furthermore I add to change

(ns pegthing.core
  (:gen-class))

since set is loaded with clojure.core now.

There is a bug here:
https://github.com/flyingmachine/pegthing/blob/master/src/pegthing/core.clj#L98-L100

Should be:

(defn valid-moves
  "Return a map of all valid moves for pos, where the key is the
  destination and the value is the jumped position"
  [board pos]
  (into {}
        (filter (fn [[destination jumped]]
                  (and (not (pegged? board destination))
                       (pegged? board jumped)
                       (pegged? board pos)))
                (get-in board [pos :connections]))))