RobertARandolph

(defn longest-palindrome [s] 
(let [palindrome? #(= (seq %) (reverse %)) 
      slice-all (fn [s] (mapcat #(partition % 1 s) (mapcat list (range (count s) 1 -1))))] 
	(some palindrome? (slice-all s))))

;; or to return palindrome

(defn longest-palindrome [s] 
  (let [palindrome? #(= (seq %) (reverse %)) 
  slice-all (fn [s] (mapcat #(partition % 1 s) (mapcat list (range (count s) 1 -1))))] 

RobertARandolph

**test**

RobertARandolph

tst

RobertARandolph

body {
  margin: 25px;
  background-color: rgb(240,240,240);
  font-family: arial, sans-serif;
  font-size: 14px;
}

h1 {
  font-size: 35px;
  font-weight: normal;

RobertARandolph

Installing parsers: CTagsSelfTest, Ada, Ant, Asciidoc, Asm, Asp, Autoconf, AutoIt, Automake, Awk, Basic, BETA, Clojure, CMake, C, C++, CPreProcessor, CSS, C#, Ctags, Cobol, CUDA, D, Diff, DTD, DTS, DosBatch, Eiffel, Elm, Erlang, Falcon, Flex, Fortran, Fypp, Gdbinit, Go, HTML, Iniconf, ITcl, Java, JavaProperties, JavaScript, JSON, LdScript, Lisp, Lua, M4, Man, Make, Markdown, MatLab, Myrddin, ObjectiveC, OldC++, OldC, OCaml, Passwd, Pascal, Perl, Perl6, PHP, Pod, Protobuf, PuppetManifest, Python, PythonLoggingConfig, QemuHX, QtMoc, R, RSpec, REXX, Robot, RpmSpec, ReStructuredText, Ruby, Rust, Scheme, Sh, SLang, SML, SQL, SystemdUnit, Tcl, TclOO, Tex, TTCN, Vera, Verilog, SystemVerilog, UCtagsAspell, VHDL, Vim, WindRes, YACC, YumRepo, Zephir, DBusIntrospect, Glade, Maven2, PlistXML, RelaxNG, SVG, XSLT
Setting option defaults
    Setting default header extensions: h, H, hh, hpp, hxx, h++, inc, def
  Installing default language mappings:
    CTagsSelfTest:
    Ada: .adb .ads .Ada
    Ant: (build.xml) .build.xml .

RobertARandolph

desc: Keytrack generator
//tags: Key track follow generator link
//author: Robert Randolph

slider1:0<0,127,1>Midi Note Value
slider2:0<0,15,1{1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16}>Input Channel
slider3:0<0,1,1{Note On, Note Off}>Trigger

in_pin:none
out_pin:none

RobertARandolph

Error building classpath. Failed to read artifact descriptor for com.datomic:ion:jar:0.9.28
org.eclipse.aether.resolution.ArtifactDescriptorException: Failed to read artifact descriptor for com.datomic:ion:jar:0.9.28
	at org.apache.maven.repository.internal.DefaultArtifactDescriptorReader.loadPom(DefaultArtifactDescriptorReader.java:276)
	at org.apache.maven.repository.internal.DefaultArtifactDescriptorReader.readArtifactDescriptor(DefaultArtifactDescriptorReader.java:192)
	at org.eclipse.aether.internal.impl.DefaultRepositorySystem.readArtifactDescriptor(DefaultRepositorySystem.java:253)
	at clojure.tools.deps.alpha.extensions.maven$eval685$fn__687.invoke(maven.clj:82)
	at clojure.lang.MultiFn.invoke(MultiFn.java:243)
	at clojure.tools.deps.alpha$expand_deps.invokeStatic(alpha.clj:183)
	at clojure.tools.deps.alpha$expand_deps.invoke(alpha.clj:165)
	at clojure.tools.deps.alpha$resolve_deps.invokeStatic(alpha.clj:228)

RobertARandolph

{:paths ["src" "resources"]
 :deps {com.datomic/ion {:mvn/version "0.9.34"}
        org.clojure/clojure {:mvn/version "1.10.0"}
        com.datomic/ion-dev {:mvn/version "0.9.229"}
        com.datomic/client-cloud {:mvn/version "0.8.71"}}
 :mvn/repos {"datomic-cloud" {:url "s3://datomic-releases-1fc2183a/maven/releases"}}
 :aliases
 {:dev {:extra-deps {com.datomic/client-cloud {:mvn/version "0.8.71"}
                     com.datomic/ion-dev {:mvn/version "0.9.229"}}}}}

RobertARandolph

{:http-direct {:handler-fn http-direct.tutorial/handler}
 :app-name "http-direct-tutorial"}

RobertARandolph

(ns http-direct.tutorial
  (:require
   [clojure.java.io :as io]
   [clojure.edn :as edn]))

(defn read-edn
  [input-stream]
  (some-> input-stream io/reader (java.io.PushbackReader.) edn/read))

(defn handler