kineticz

aaa

kineticz

aaa

kineticz

aaa

kineticz

;; version 1
(def game {:world {:tiles 5}})
(defn get-tiles
  [{{:keys [tiles]} :world :as game}]
  (println game)
  (println tiles))
(get-tiles game)
;; version 2
(def game {:world {:tiles 5}})
(defn get-tiles

kineticz

;; Accessing / indexing 2d vectors in clojure
(def tiles [[1 2 3] [4 5 6]])
(tiles 1)
((tiles 1) 2)

kineticz

(defmulti process-input
  (fn [game input]
    (:kind (last (:uis game)))))

(defmethod process-input :start [game input]
  (-> game
      (assoc :world (random-world))
      (assoc :uis [(new UI :play)])))

kineticz

(defn print-row [row]
  (println (apply str (map :glyph row))))

(defn print-world [world]
  (dorun (map print-row (:tiles world))))

kineticz

(require '(clojure [string :as str]
                   [walk :as walk]))
(defmacro reverse-it
  [form]
  (walk/postwalk #(if (symbol? %)
                   (symbol (str/reverse (name %))))
                 form))
(reverse-it
  (qesod [gra (egnar 5)]
         (nltnirp (cni gra))))

kineticz

(defmacro oops [arg] `(frontfdsa ~arg))
(macroexpand-1 `(oops 13))
(macroexpand-1 '(oops 13))

kineticz

package com.company;

public class Main {

    public static void main(String[] args) {
        for(int i = args.length() - 1; i >= 0; i--) {
            reverse(args[i]);
        }
        System.out.println();
    }