Eskatrem

samuel@samuel-XPS-13-9360:~/code/memory-game$ buildozer android clean
# Check configuration tokens
# Ensure build layout
# Check configuration tokens
# Run '/usr/bin/python -m pythonforandroid.toolchain clean_builds --color=always --storage-dir=/home/samuel/code/memory-game/.buildozer/android/platform/build'
# Cwd /home/samuel/code/memory-game/.buildozer/android/platform/python-for-android-new-toolchain
# Run '/usr/bin/python -m pythonforandroid.toolchain clean_dists --color=always --storage-dir=/home/samuel/code/memory-game/.buildozer/android/platform/build'
# Cwd /home/samuel/code/memory-game/.buildozer/android/platform/python-for-android-new-toolchain
samuel@samuel-XPS-13-9360:~/code/memory-game$ buildozer android debug deploy run
# Check configuration tokens

Eskatrem

import kivy

from kivy.clock import Clock 
from kivy.app import App
from kivy.uix.floatlayout import FloatLayout
from kivy.uix.label import Label
from kivy.uix.textinput import TextInput
 
def on_enter(instance):
    print '============== still in "global?" on_enter() ===================='

Eskatrem

(defparameter *maths-functions* (list))

(defmacro defun-maths (func-name args core)
  "appends the code of func-name into maths-functions."
  `(progn
     (push (list :name (quote ,func-name) :variable (quote ,args) :core (quote ,core)) *maths-functions*)
     (defun ,func-name ,args ,core)))

(defun get-source (func-name)
  (car (remove-if-not (lambda (f) (eql (getf f :name) func-name)) *maths-functions*

Eskatrem

(defparameter *maths-functions* (list))

(defmacro defun-maths (func-name args core)
  "appends the code of func-name into maths-functions."
  `(progn
     (push (list (quote ,func-name) (quote ,@args) (quote ,core)) *maths-functions*)
     (defun ,func-name ,args ,core)))

Eskatrem

(defparameter *maths-functions* (list))

(defmacro defun-maths (func-name args core)
  "appends the code of func-name into maths-functions."
  `(progn
     (push (list (quote ,func-name) (quote ,@args) (quote ,core)) *maths-functions*)
     (defun ,func-name ,args ,core)))

Eskatrem

(defun eq-assoc (assoc-a assoc-b)
  (and (equal (length assoc-a) (length assoc-b))
       (reduce (lambda (accum pair)
                 (and accum
                      (equal pair (assoc (car pair) assoc-b))))
               assoc-a
               :initial-value t)))

(defun group (list)
  (let ((even t))

Eskatrem

(ns newton-raphson.core)

;;utility function for list manipulation
(defn keep-list [expr]
  (if (and (coll? expr) (not (= 1 (count expr)))) (list expr) expr))


(defn to-list [expr]
  (cond (list? expr) expr
(coll? expr) (seq expr)

Eskatrem

(fn [x n]
       (loop [res (), k 0]
	 (cond (>= k n) (if (list? x) res (reverse res))
	       :else (recur (conj res (filter #(= k (mod % n)) x)) (inc k)))))

Eskatrem

(defn is-palindrome [x]
  (= x (Integer/parseInt (apply str (reverse (str x)))))
  )

(defn problem4 []
					;Find the largest palindrome made from the product of two 3-digit numbers.
  (def max-palindrome 0)
  (doseq [i (range 999)]
    (doseq [j (range i)]
      (do	

Eskatrem

(defn get-prime-factors [n-arg]
  ;(def n n-arg)
  (def prime-factors (list))
  (loop [p 2 n n-arg  :while (> n 1)]
    (println (str "p=" p " n=" n))
    ;(while (> n 1)
      (println n)
      (println (class n))
      (if (= 0 (mod n p))