QEMU 2.3.0
$ sudo apt-get install pkg-config libglib2.0-dev autoconf libtool
$ ./configure --target-list=arm-softmmu,arm-linux-user
$ make
(in-package :cl-user) | |
(eval-when (:compile-toplevel :load-toplevel :execute) | |
(ql:quickload '(:cl-num-utils :lla :array-operations) :silent t)) | |
(defpackage :bm | |
(:use :cl) | |
(:import-from :clnu | |
:e* | |
:transpose) | |
(:import-from :clnu.mx | |
:mx) |
#include "stm32f4xx.h" | |
#include "lib.h" | |
#define PLL_M 8 | |
#define PLL_N 336 | |
#define PLL_P 2 | |
#define PLL_Q 7 | |
void EnablePll() | |
{ |
#| | |
JSON parser implemented with cl-lex and CL-Yacc | |
USAGE: | |
JSON-PARSER> (parse-with-lexer (json-lexer | |
"{\"foo\":\"bar\",\"baz\":\"bang\",\"bing\":100,\"bingo\":1.1,\"bazo\": [1,2,\"foo\"]}") | |
json-parser) | |
(:OBJ ("foo" . "bar") ("baz" . "bang") ("bing" . 100) ("bingo" . 1.1) ("bazo" 1 2 "foo")) | |
JSON-PARSER> (with-open-file (*standard-input* "test.json") |
;; 勾配法の更新係数 | |
(defparameter *epsilon* 0.5) | |
(defun grad (f dfs ws xs) | |
"勾配法により更新後の重みベクトルを計算する。 | |
f - 誤差関数 | |
dfs - n番目の重みの更新関数 | |
ws - 重みベクトル | |
xs - 入力ベクトル | |
" |
;; 試行回数 | |
(defconstant +N+ 1000) | |
;; 入力値 | |
(defparameter x (list 1 0 1)) | |
;; 結線重み | |
(defparameter w (list 3 2 -1)) | |
;; 閾値 | |
(defparameter th 1) |
;; ゲーム盤のサイズ | |
(defparameter N 8) | |
;; 各行にはどの列に駒を置いたか? | |
(defparameter *pos* (make-array N :initial-element nil)) | |
;; 列方向の利き筋判定 | |
(defparameter *col* (make-array N :initial-element nil)) | |
;; 右斜め上方向の利き筋判定 | |
(defparameter *up* (make-array (1- (* 2 N)) :initial-element nil)) | |
;; 左斜め下方向の利き筋判定 |
diff --git Makefile Makefile | |
index a6bba79..2dad8ff 100644 | |
--- Makefile | |
+++ Makefile | |
@@ -8,7 +8,7 @@ all: $(PROG) | |
install: $(PROG) | |
install $(PROG) $(HOME)/bin/ | |
-LIBS= -lssl | |
+LIBS= -lcrypto -lz |
;;; Update date and time in a octopress's markdown file. | |
;;; This script also updates date in the file name. | |
(load "~/quicklisp/setup.lisp") | |
(ql:quickload :cl-ppcre) | |
;; Temporary file created in the current directory | |
(defparameter *temp-filename* "temp.txt") | |
(defun time-string (&optional detail) |