orb

pathfinding in Clojure

Help, I’m stuck in a maze

Motivation

Many AoC problems required some sort of path finding - shortest path, cheapest path according to the rules of the world.

orb

(ns sort-compare.core)

(def team-data
  [{:team-id 1
    :total-pts 7
    :matches [{:schedule-id 1 :opp-team-id 2 :opp-team-pts 6 :team-points 3}
              {:schedule-id 2 :opp-team-id 3 :opp-team-pts 6 :team-points 4}]}
   {:team-id 2
    :total-pts 7
    :matches [{:schedule-id 1 :opp-team-id 1 :opp-team-pts 3 :team-points 6}

orb

(ns roll.core
  (:require [instaparse.core :as instaparse]
            [clojure.string :as str]))

(def roll-parser
  (instaparse/parser "
  roll = quantity? <'d'> die-type (operator operand)?
  <quantity> = number
  <die-type> = number
  <operand> = number

orb

    boolean saveImage(String fileName, String contentType, InputStream inputStream) {
        Connection connection = null;
        PreparedStatement statement = null;
        ResultSet keySet = null;

        try {
            connection = dataSource.getConnection();
            statement = connection.prepareStatement("INSERT INTO images (filename, content_type, content) values (?, ?, ?)", 
                    new String[]  {"id"});
            statement.setString(1, fileName);

orb

package images;

import java.io.FileInputStream;
import java.io.IOException;
import javax.servlet.ServletException;
import javax.servlet.ServletOutputStream;
import javax.servlet.annotation.WebServlet;
import javax.servlet.http.HttpServlet;
import javax.servlet.http.HttpServletRequest;
import javax.servlet.http.HttpServletResponse;

orb

(defun flatten (l)
  (cond
   ((null l) nil)
   ((listp l) (append (flatten (car l))
                      (flatten (cdr l))))
   (t (list l))))

(flatten '())
(flatten 1)
(flatten '(1 . 2))

orb

  // capturing the hide event instead of the hidden event lets us intercept the close and update our state
  // 
  componentDidMount = () => {
    $(this.node).on("hide.bs.modal",
                    (e) => {
                      if (this.props.open) { 
                        // if we say the modal should be open but it want's to close
                        e.preventDefault(); // stop it from closing
                        this.props.closeMe(); // update our state to request our close, if we want that behavior
                      }

orb

user> (defn try-it [ & [x & xs :as all-of-them]]
        all-of-them)
#'user/try-it
user> (try-it 1 2 3 4 5)
(1 2 3 4 5)
user> (defn try-it [ & [x & xs :as all-of-them]]
        x)
#'user/try-it
user> (try-it 1 2 3 4 5)

orb

(defproject trypy "0.1.0-SNAPSHOT"
  :dependencies [[org.clojure/clojure "1.7.0"]
                 [org.python/jython-standalone "2.5.2"]]

  :aliases {"jython"
            ["trampoline" "run" "-m" "org.python.util.jython"]})

orb

package hello;

import java.util.ArrayList;
import java.util.Comparator;
import java.util.List;


public class CommentFun
{