とりとめのないことを書いております。
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
外部リンク
ファン
記事ランキング
ブログジャンル
画像一覧
タグ:python ( 4 ) タグの人気記事
【Gauche】rangeのテストコードを書いてみた
プログラミングGaucheの10章がユニットテストのトピックだったので、rangeのテストコードを書いてみました。手書きで書けば10分で済んだものの、横着してスクリプトで書いたので、3〜4時間かかってしまいました。

【テストコードを出力するスクリプト】

#!/bin/sh -f

function p { # in case of Cygwin Bsh -> Windows Gauche
  printf "%s" "$1"
  shift
  while [ -n "$1" ]; do
    printf " %s" "$1"
    shift
  done
  printf "\r\n"
}

function test_range {

  ITEM='range('$1
  if [ -n "$2" ]; then ITEM=$ITEM', '$2; fi
  if [ -n "$3" ]; then ITEM=$ITEM', '$3; fi
  ITEM=$ITEM')'

  PYINP='python3 -c '"'"'print(list('$ITEM'))'"'"

  PYOUT=`echo $PYINP | sh`
  SCHOUT='(list '`echo $PYOUT | sed -r 's/(\[|\]|,)//g'`')'

  SCHINP='(range '"$1"
  if [ -n "$2" ]; then SCHINP=$SCHINP' '"$2"; fi
  if [ -n "$3" ]; then SCHINP=$SCHINP' '"$3"; fi
  SCHINP=$SCHINP')'
  
  p '(test* "'$ITEM' [Python 3.4 Documentation]"'
  p '       '$SCHOUT
  p '       '$SCHINP')'
  p ''

}

p ";; -*- coding: shift_jis -*-"
p ""
p "(use gauche.test)"
p '(test-start "range.scm")'
p ""
p '(load "./range")'
p ""
test_range 10
test_range 1 11
test_range 0 30 5
test_range 0 10 3
test_range 0 '-10' '-1'
test_range 0
test_range 1 0
p ""
p "(test-end)"

【出力されたテストコード】

;; -*- coding: shift_jis -*-

(use gauche.test)
(test-start "range.scm")

(load "./range")

(test* "range(10) [Python 3.4 Documentation]"
       (list 0 1 2 3 4 5 6 7 8 9)
       (range 10))

(test* "range(1, 11) [Python 3.4 Documentation]"
       (list 1 2 3 4 5 6 7 8 9 10)
       (range 1 11))

(test* "range(0, 30, 5) [Python 3.4 Documentation]"
       (list 0 5 10 15 20 25)
       (range 0 30 5))

(test* "range(0, 10, 3) [Python 3.4 Documentation]"
       (list 0 3 6 9)
       (range 0 10 3))

(test* "range(0, -10, -1) [Python 3.4 Documentation]"
       (list 0 -1 -2 -3 -4 -5 -6 -7 -8 -9)
       (range 0 -10 -1))

(test* "range(0) [Python 3.4 Documentation]"
       (list )
       (range 0))

(test* "range(1, 0) [Python 3.4 Documentation]"
       (list )
       (range 1 0))


(test-end)

[PR]
by tempurature | 2015-11-19 21:25 | scheme
pythonで迷走してみる
Gauche版rangeのテストを行うために、pythonを久しぶりに動かしてみました。
それで思ったのは、色々な言語を触っている人にとってインタプリタはとても有用だということです。

$ python
Python 2.7.10 (default, Jun  1 2015, 18:05:38)
[GCC 4.9.2] on cygwin
Type "help", "copyright", "credits" or "license" for more information.
>>> range 1 2
  File "<stdin>", line 1
    range 1 2
          ^
SyntaxError: invalid syntax
>>> (range 1 2)
  File "<stdin>", line 1
    (range 1 2)
           ^
SyntaxError: invalid syntax
>>> range(1 2)
  File "<stdin>", line 1
    range(1 2)
            ^
SyntaxError: invalid syntax
>>> range(1, 2)
[1]
>>> for i in range(1, 10): print(i)
... ;
  File "<stdin>", line 2
    ;
    ^
SyntaxError: invalid syntax
>>> for i in range(1, 10): print(i)
...
1
2
3
4
5
6
7
8
9

[PR]
by tempurature | 2015-11-19 04:32 | プログラミング
【happy-saiban.sh】不吉な数字が入っていない4桁の数字のリストを出力するスクリプト
シェルプログラミングではインデントが必要ないことが多いので、exciteブログにのせるのが楽でいいです。

[スクリプトの本体]

#!/bin/sh

python3 -c 'for i in range(0,10000): print("%04d" % i)' \
| sed '/4/d' \
| sed '/9/d' \
| sed '/13/d' \
| sed '/666/d'

[実行例]

$ happy-saiban.sh | wc
3890 3890 19450
$ happy-saiban.sh | head
0000
0001
0002
0003
0005
0006
0007
0008
0010
0011
$ happy-saiban.sh | tail
8877
8878
8880
8881
8882
8883
8885
8886
8887
8888


[PR]
by tempurature | 2015-10-06 23:05 | プログラミング
【Linux】テキストファイルを繰り返して出力する
テキスト処理の性能評価のため、10行程度のテキストファイルを10000回繰り返して表示させたいと思いました。catやsedでできるかなと思いましたが、そのようなオプションはなさげ。

ただ、which repeatと入力すると、そういうコマンドがあるっぽい。

$ which repeat
repeat: shell reserved word

(※もともとcsh系のコマンドらしく、bashでは使えません。zshでは使えます)

さっそく使ってみることに。

$ cat AtoZ
A
(略)
Z
$ wc AtoZ
26 26 52 AtoZ
$ repeat 10 cat AtoZ > tmp
$ wc tmp
26 26 52 tmp

おかしいなぁ もしかしてtmpが10回ファイルオープンしているとか

$ (repeat 10 cat AtoZ) > tmp
$ wc tmp
260 260 520 tmp

うまくいきました。

ところが、この時点で、なんか動作がもっさりしています。なので

$ time (repeat 10 cat AtoZ) > tmp
( repeat 10; do; cat AtoZ; done; ) > tmp 0.04s user 0.01s system 70% cpu 0.085 total
$ time (repeat 1000 cat AtoZ) > tmp
( repeat 1000; do; cat AtoZ; done; ) > tmp 1.48s user 3.86s system 80% cpu 6.638 total

1000回の繰り返しで6.6秒もかかっています(Cygwinでの実行結果です)。

しばらく考えて、繰り返した回数だけcatのプロセスを生成していることに気が付きました。根本的すぎて嫌になります。

catに代わる繰り返し出力用コマンドを作ってみました。

$ cat dog
#!/usr/bin/python

# dog command --- concatnate standard input repeatedly
# cat [file] | dog [num]

import sys

text = sys.stdin.read()
for i in range(int(sys.argv[1])):
print text,

dogを実行した結果、物凄く早く終わりました。

$ time (cat AtoZ | dog 1000) > tmp
( cat AtoZ | dog 1000; ) > tmp 0.03s user 0.01s system 78% cpu 0.058 total

dogでは標準入力しか受け付けず、しかもプログラム内のバッファに一度ためてから出力するので、長大な標準入力は受け付けられません。長大なファイルを入力する場合はプロセス生成時間よりもファイルアクセス時間のほうが長いのでrepeatを使ってくださいということです。


[PR]
by tempurature | 2015-09-12 22:57 | プログラミング