tanakahx

(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)

tanakahx

#include "stm32f4xx.h"
#include "lib.h"

#define PLL_M 8
#define PLL_N 336
#define PLL_P 2
#define PLL_Q 7

void EnablePll()
{

tanakahx

#|
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")

tanakahx

;; 勾配法の更新係数
(defparameter *epsilon* 0.5)

(defun grad (f dfs ws xs)
  "勾配法により更新後の重みベクトルを計算する。
f   - 誤差関数
dfs - n番目の重みの更新関数
ws  - 重みベクトル
xs  - 入力ベクトル
"

tanakahx

;; 試行回数
(defconstant +N+ 1000)

;; 入力値
(defparameter x (list 1 0 1))
;; 結線重み
(defparameter w (list 3 2 -1))
;; 閾値
(defparameter th 1)

tanakahx

;; ゲーム盤のサイズ
(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))
;; 左斜め下方向の利き筋判定

tanakahx

QEMU のバージョン

QEMU 2.3.0

ビルド手順

$ sudo apt-get install pkg-config libglib2.0-dev autoconf libtool
$ ./configure --target-list=arm-softmmu,arm-linux-user
$ make

tanakahx

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

tanakahx

;;; 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)