mynomoto

;; I think it would be a mistake to introduce temporal coupling to prevent typos.

;; The example program below lets you identify "missing" keys specs at
;; the time and place of your choosing, and then handle them as you
;; deem appropriate, without imposing those decisions on other
;; users of spec.

(require '[clojure.spec.alpha :as s]
         '[clojure.set :as set])

mynomoto

Teste de Programação - Backend - XERPA

Olá! Como parte do processo de seleção da Xerpa, gostaríamos que você fizesse uma pequena tarefa. Esperamos que ela seja feita preferencialmente em uma das nossas linguagens principais: Elixir, Erlang ou Clojure.

A ideia é olhar como é seu estilo de programação e quais decisões você toma ao resolver um problema. Para isso, crie um projeto no seu Github para podermos acompanhar a árvore de commits!

Sinta-se à vontade para criar em cima do problema abaixo.

mynomoto

Howto - Setting Up an HSQLDB Storage for Datomic

This gist walks you through the steps of setting up a storage for your datomic starter instance to use an HSQLDB instance (running as a standalone server - i do not address embedded, http, in memory or other forms of the server). I am sure the same can be applied to any other SQL based storage so it should be portable to Apache Derby. I am writing this for those who may find it useful in getting this done quickly without spending a week as I did trying to figure out what I was doing wrong.

Part I : Install & Setup Your Storage: the HSQLDB Server

1. Download the latest version of the database from here
2. The most important file you will need is the hsqldb.jar file. This is the database. This will need to be in your classpath to be able to run the server.
3. I then create a bash script for easy execution of the Network Server version of the database as shown below.

mynomoto

FROM openjdk:8u121-jdk-alpine

RUN apk update && apk add curl bash

ADD https://private/url/for/datomic-pro.zip /datomic-pro.zip
RUN mkdir /datomic && unzip /datomic-pro.zip -d /datomic

ADD go.sh /go.sh
RUN chmod 755 /go.sh

mynomoto

(ns kondo.cats
  (:require
    [cats.core :as m]
    [cats.monad.either :refer [left left? right right?]]))

(defn assoc-b
  [m v]
  (right (assoc m :b v)))

(defn merge-2

mynomoto

(page "index.html")

(defc t "Grumpy wizards make toxic brew for the evil Queen and Jack.")
(defc size 16)
(defn r [size] (range 1 size))

(defc= make-grid
  (str "background-size: " size "px, " size "px; background-image:repeating-linear-gradient(0deg, #000, #000 1px, transparent 1px, transparent "
        size "px); height:100%; width:100%; position:absolute;z-index: 1"))

mynomoto

(ns view.index
  (:require
    [hoplon.core  :as h]
    [javelin.core :as j]))

(j/defc cond-tpl-number 4)
(j/defc= is-4 (= cond-tpl-number 4))

(defn cond-tpl-example
  []

mynomoto

(ns view.index
  (:require
    [hoplon.core  :as h]
    [javelin.core :as j]))

(j/defc i 0)
(j/defc j 1)
(j/defc k 2)

(def formula-of-test (j/formula-of [i j k] (+ i j k)))

mynomoto

(ns view.index
  (:require
    [hoplon.core  :as h]
    [javelin.core :as j]))

(def a (j/cell 42))
(def b (j/cell {:x 100 :y 200}))
(def formulet-test
  (j/formulet [v (j/cell= (inc a))
               w (+ 1 2)

mynomoto

(require '[hoplon.core :as h])
(require '[javelin.core :as j])

(defn random-string
  []
  (apply str (repeatedly 20 (fn [] (rand-nth "abcdefghijklmnopqrstuvwxyz0123456789")))))

(j/defc title "From Hoplon")
(def next-title
  {"From Hoplon" "Clicked button"