Writing a procedure using strings Now we're ready to write a procedure using strings. Let's write a simple piglatin program. It takes the first letter of the word, appends it to the word with the first letter removed, and adds "ay" on the end: (defun pig (word) (concatenate 'string...
-examples.lispA list of example inputs taken from the book -tutor.lispAn interpreter for running the examples -auxfns.lispAuxiliary functions; load this before anything else 1intro.lispA few simple definitions 2simple.lispRandom sentence generator (two versions) ...
(minimize (make-instance 'sgd-optimizer :batch-size 10) *diff-fn-2* :weights (make-mat 1) :dataset (make-instance 'function-sampler :generator (lambda () (list (+ 10 (gaussian-random-1))) :max-n-samples 1000)) ;;; => A MAT with a single value of about 10, the expected value...
The possible arguments include (but are not limited to (note some described arguments do not appear in the argument list but are allowed because additional keyword arguments are allowed): :if-exists - controls what to do if the triple-store already exists. The default value, :supersede, will...
Return a list of property lists each of which describes a catalog on the server. server - Specifies a server spec or URL of the AG server on which to operate. "127.1:10035" is used if nil is passed for this argument. :repo-count - if true, return number of repositories for each ...
(setq temp (append temp (list (nth m lst))) (setq m (1+ m)) ) ) temp);;; Bitwise DLINE endcap setting function.;;;(defun endcap () (initget "Auto Both End None Start") (setq dl:ecp (getkword "\nDraw which endcaps? Both/End/None/Start/<Auto>: ")) (cond ...
LGPL-2.1 license -*- indented-text -*- Introduction === Hedgehog is a very concise implementation of a LISP-like language for low-end and embedded devices, primarily for machine-to-machine systems. It consists of a compiler to byte code and a corresponding interpreter. The byte code interpre...
Upper result word unsigned x unsigned Upper result word signed x unsigned Signed division Unsigned division Signed remainder Unsigned remainder Compare Set if less than Set if less than unsigned Set if less than immed. Set if less than immed. unsigned Set if equal to zero Set if not equal to...
($word #x41004400)) (defcode off () ($ldr 'r2 base) ($mov 'r1 1) ($lsl 'r3 'r1 17) ($str 'r3 '(r2 outclr)) ($bx 'lr) base ($word #x41004400)) The(on)routine defines the pin as an output and takes it low to turn the LED on. The(off)routine takes the pin high...
Constant .word 0x0f0f0f0f ($word #x0f0f0f0f)Note that the order of the registers in the list supplied to $push and $pop is irrelevant; the registers are always pushed in the order highest number first to lowest last, and popped in the order lowest number first to highest last.Simpl...