erdos

(ns roman-nums.core
  (:require
   [clojure.test :refer [testing are]]))

(def ^:private roman-digits
  [[1000 "M"] [900 "CM"]
   [500  "D"] [400 "CD"]
   [100  "C"] [90  "XC"]
   [50   "L"] [40  "XL"]
   [10   "X"] [9   "IX"]

erdos

(do
    ;; number of groups
    (def n (.availableProcessors (Runtime/getRuntime)))
    
    ;; memoized round-robin style group number generator for items
    (let [a (atom (cycle (range n)))]
        (def get-id-for
            (memoize (fn [_] (first (swap! a next))))))
  
    (defn split-by-key

erdos

Budapest Clojure User Group - meetup presentation proposal for 2016-11-24

Schema vs. Spec

Validating data in dynamic typed programming languages is an important aspect of making sure our programs are safe and correct. In the short presentation we will take a look at two solutions for validating data in Clojure.

Prismatic Schema is a mature library with simple syntax and strong support in the Clojure ecosystem. The new competitor is core.specs supporting in the core language with promising new features. After the presentation we will discuss personal experiences with the advantages and disadvantages of both solutions.

erdos

(defn filt [sequences]
  (mapv (partial apply min-key peek) (vals (group-by count sequences))))

(defn rfn [seqs x]
  (filt (concat [[x]] seqs (for [cs seqs :when (> x (peek cs))] (conj cs x)))))

(defn longest-subseq [xs]
  (apply max-key count [] (reduce rfn nil xs)))

erdos

  (defn rpn [s]
    (first (reduce (fn [[s1 s2 & ss :as stack] op]
                     (case op
                       + (cons (+ s1 s2) ss)
                       - (cons (- s1 s2) ss)
                       * (cons (* s1 s2) ss)
                       / (cons (/ s1 s2) ss)
                       , (cons op stack)))
                   () (read-string (str \( s \))))))

erdos

<?xml version="1.0" encoding="UTF-8"?>
<w:document xmlns:w="http://schemas.openxmlformats.org/wordprocessingml/2006/main" xmlns:mc="http://schemas.openxmlformats.org/markup-compatibility/2006" xmlns:o="urn:schemas-microsoft-com:office:office" xmlns:r="http://schemas.openxmlformats.org/officeDocument/2006/relationships" xmlns:v="urn:schemas-microsoft-com:vml" xmlns:w10="urn:schemas-microsoft-com:office:word" xmlns:w14="http://schemas.microsoft.com/office/word/2010/wordml" xmlns:wp="http://schemas.openxmlformats.org/drawingml/2006/wordprocessingDrawing" xmlns:wp14="http://schemas.microsoft.com/office/word/2010/wordprocessingDrawing" xmlns:wpg="http://schemas.microsoft.com/office/word/2010/wordprocessingGroup" xmlns:wps="http://schemas.microsoft.com/office/word/2010/wordprocessingShape" mc:Ignorable="w14 wp14">
   <w:body>
      <w:p>
         <w:pPr>
            <w:pStyle w:val="Normal" />
            <w:rPr />
         </w:pPr>
         <w:r>
            <w:rPr />

erdos

(ns hungarian
  (:require [clojure.string]))

(defn- fmt [num]
  (cond
    (>= num 1000_000_000)
    (let [szorzo (quot num 1000_000_000)
          maradek (rem num 1000_000_000)]
      (str (fmt szorzo) "milliárd" (when (pos? maradek) (str "-" (fmt maradek)))))

erdos

(let [target (the-ns 'testable-namespace)]
  (doseq [[k v] (ns-map target)
          :when (and (var? v) (= target (.ns v)))]
    (eval `(defn ~(symbol (str "-" k)) [~'& args#] (apply (deref ~v) args#)))))


;; Now if testable-namespace has a function valled fun1
;; then i am able call -fun1 from the current namespace.

erdos

;     root
;   / \     \
;  1  [2 3] [4 5]
;      /\    /\
;     2 3   4 5


(require '[clojure.zip :as zip])

erdos

package dev.erdos.algo;

import java.util.Arrays;

public class SuffixArray {


	// O(n*logn) algorithm for constructing a suffix array.
	// Original source: https://cp-algorithms.com/string/suffix-array.html#toc-tgt-3
	public static int[] calculateSuffixArray(char[] s) {