et4te

;;
;;(in-package :3d-engine)
(in-package :cl-user)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; INIT
;;(pushnew "/home/malune/.sbcl/systems/" asdf:*central-registry*)

;;
(asdf:operate 'asdf:load-op :cl-glut)
(asdf:operate 'asdf:load-op :split-sequence)

et4te

(asdf:oos 'asdf:load-op :contextl)

(in-package :contextl-user)

(defclass grouped-layer (standard-layer-class) ())

(defgeneric group-root (layer))
(defgeneric default-layer (layer))

(define-layered-method adjoin-layer-using-class

et4te

: fizz? ( n -- ? )                                                                                                                                    
    3 mod 0 = ;                                                                                                                                       
                                                                                                                                                      
: buzz? ( n -- ? )                                                                                                                                    
    5 mod 0 = ;                                                                                                                                       
                                                                                                                                                      
: fizzbuzz? ( n -- ? )                                                                                                

et4te

;;------------------------------------------------------------------------------
(eval-when (:compile-toplevel)
  (ql:quickload :series))

(defpackage luhn 
  (:use :cl :series))

(in-package :luhn)

;;-- sums integer digits as long as x is < 100.

et4te

(defparameter *white-colour* #\O)

(defun make-image (m n) 
  (make-array (list m n) :initial-element *white-colour*))

(defun clear (image)
  (loop for i from 0 below (reduce #'* (array-dimensions image)) do
    (setf (row-major-aref image i) *white-colour*)))

et4te

;; Examples
;;------------------------------------------------------------------------------
;; 1. non-commands
;;   There are two types of 'non-commands',
;;     a) integers
;;     b) symbols
;;
;;   Symbols are looked up, so if you provide an initial environment, with a 
;;   symbol defined, it will be appropriately looked up.
;;     e.g: (lookup 'x '((x . 0))) -> 0

et4te

;; Examples
;;------------------------------------------------------------------------------
;; 1. non-commands
;;   There are two types of 'non-commands',
;;     a) integers
;;     b) symbols
;;
;;   Symbols are looked up, so if you provide an initial environment, with a 
;;   symbol defined, it will be appropriately looked up.
;;     e.g: (lookup 'x '((x . 0))) -> 0

et4te

;; base types
(defvar *regex-null*  nil)
(defvar *regex-empty* t)

;; predicates
(defun regex-alt? (re)
  (and (consp re) (eq (car re) 'alt)))
(defun regex-seq? (re)
  (and (consp re) (eq (car re) 'seq)))
(defun regex-rep? (re)

et4te

processEvent :: NE.NonEmpty ViewEvent -> EventState -> EventState
processEvent trigger (_, ij, nm) =
  case NE.head trigger of
    Init ->
      (Just Refresh, ij, nm)
    Prev ->
      prevEvent ij nm
    Next ->
      nextEvent ij nm

et4te

{-# LANGUAGE JavaScriptFFI #-}
module Scorch.GHCJS.File
       (
         readFileAsync
       ) where

import           Control.Monad.Trans (liftIO)
import           GHCJS.Types
import           GHCJS.Foreign
import           GHCJS.DOM.File (File)