とりとめのないことを書いております。
by tempurature
カテゴリ
全体
プログラミング
scheme
verilog
未分類
以前の記事
2016年 04月
2016年 03月
2016年 02月
2016年 01月
2015年 12月
2015年 11月
2015年 10月
2015年 09月
2015年 08月
2015年 07月
2015年 06月
2015年 03月
お気に入りブログ
PHPで競技プログラミング
メモ帳
最新のトラックバック
ライフログ
検索
タグ
その他のジャンル
ブログパーツ
最新の記事
情報処理技術者試験 お疲れ様..
at 2016-04-17 18:55
基本情報技術者試験 平成27..
at 2016-04-14 04:48
基本情報技術者試験 平成27..
at 2016-04-13 23:03
苦い薬(ハーブ、サプリメント..
at 2016-04-09 14:03
「おバカ度チェックリスト」を..
at 2016-03-24 09:54
外部リンク
ファン
記事ランキング
ブログジャンル
画像一覧
grepのナイスな使い方
Cygwinでviewコマンドを使ってみようと思ったら、viewコマンドが使えなかったので、.bashrcにエイリアスを追加することに。

vi --helpと入力すると何画面分か簡易ヘルプがでてきたけど、リードオンリーモードにするやり方がすぐ見つからなかった。
なので、次のように入力。
$ vi --help | grep only
-s Silent (batch) mode (only for "ex")
-R Readonly mode (like "view")
-n No swap file, use memory only

UNIXは5年以上使っていますけど、シェルスクリプトの奥深さには驚かされます。


[PR]
# by tempurature | 2015-07-04 17:05
lispは速いのか?
※以下は浅学な私なりの回答です。間違ってましたらご指摘頂けるとうれしいです。

Q. lispって速いんですか?

A. 遅いです。lispでbashを作ったらpowershellくらいの速さだと思います。lispはJava, D, Adaと同様ガーベジコレクションを実装している言語ですが、ガーベジコレクションはプログラムの起動時にかなりのオーバーヘッドになります。また、共有DLLなどを利用しなければプログラムサイズも増大します。

ただ、Lispには様々な種類があるので、即応性に優れた実装も探せばあると思います。そのような裾野の広さはJava, C#, Pythonにはないでしょう。

<追記>
lispについての面白いトピックです。


[PR]
# by tempurature | 2015-07-04 15:00 | プログラミング
ソースコードの貼り付けについて
Jehoshaphatさんとsp_techさんの記事を参考に、exciteブログのスキンを変えてみました。

package jp.co.excite.test; 

いいですね~060.gif

[PR]
# by tempurature | 2015-07-03 23:10 | プログラミング
【racket】星型を描く
c0364169_00445226.png
#lang racket/gui

(define x-size 300)
(define y-size 300)
(define (intersection-point line1 line2)
  (define d1 (map - (second line1) (first line1)))
  (define d2 (map - (second line2) (first line2)))
  (define norm-d2 (sqrt (foldr + 0 (map * d2 d2))))
  (define n2 (map (lambda (x) (/ x norm-d2)) (list (second d2) (- (first d2)))))
  (define (inner-* p1 p2) (foldr + 0 (map * p1 p2)))
  (define param1 (/ (inner-* (map - (first line2) (first line1)) n2) (inner-* d1 n2)))
  (map + (first line1) (map (lambda (x) (* param1 x)) d1)))
(define (regular-polygon n)
  (define angles (map (lambda (m) (* 2.0 pi (/ m n))) (range 0 n)))
  (map (lambda (phi) (list (sin (- phi)) (cos (- phi)))) angles))
(define (shift x y) (lambda (p) (map + p (list x y))))
(define (magnify x y) (lambda (p) (map * p (list x y))))
(define pentagon (map (shift (/ x-size 2) (/ y-size 2))
                      (map (magnify (/ x-size 2) (/ (- y-size) 2)) (regular-polygon 5))))
(define intersection-index-pairs
  (map (lambda (n) (map (lambda (m) (remainder (+ n m) 5)) '(0 2 1 4))) (range 0 5)))
(define intersections
  (map (lambda (pair) (intersection-point (list (list-ref pentagon (first pair))
                                                (list-ref pentagon (second pair)))
                                          (list (list-ref pentagon (third pair))
                                                (list-ref pentagon (fourth pair)))))
       intersection-index-pairs))
(define lines
  (append (map (lambda (n) (append (list-ref pentagon n) (list-ref intersections n))) (range 0 5))
          (map (lambda (n) (append (list-ref intersections n)
                                   (list-ref pentagon (remainder (+ n 1) 5)))) (range 0 5))))

(define target (make-bitmap x-size y-size))
(define dc (new bitmap-dc% [bitmap target]))
(send dc set-pen "blue" 1 'solid)
(for-each (lambda (line) (send dc draw-line (first line) (second line) (third line) (fourth line)))
     lines)
(send target save-file "star.png" 'png)

[PR]
# by tempurature | 2015-07-01 00:45 | scheme
【racket】正五角形を書く
c0364169_01074515.png
#lang racket/gui

(define x-size 300)
(define y-size 300)

(define target (make-bitmap x-size y-size))
(define dc (new bitmap-dc% [bitmap target]))

(define (regular-polygon n)
  (define angles (map (lambda (m) (* 2.0 pi (/ m n))) (range 0 n)))
  (map (lambda (phi) (list (sin (- phi)) (cos (- phi)))) angles))
(define (shift x y) (lambda (p) (list (+ (first p) x) (+ (second p) y))))
(define (magnify x y) (lambda (p) (list (* (first p) x) (* (second p) y))))

(define star (map (shift (/ x-size 2) (/ y-size 2))
                  (map (magnify (/ x-size 2) (/ (- y-size) 2)) (regular-polygon 5))))

(send dc set-pen "blue" 1 'solid)

(define line-index-pairs (map (lambda (n) (list n (remainder (+ n 1) 5))) (range 0 5)))
(define lines (map (lambda (pair) (append (list-ref star (first pair))
                                          (list-ref star (second pair))))
                   line-index-pairs))

(for-each (lambda (line) (send dc draw-line (first line) (second line) (third line) (fourth line)))
     lines)
(send target save-file "pentagon.png" 'png)

[PR]
# by tempurature | 2015-06-27 01:08 | scheme