Latest comments for language 'Bash' on doukaku.org

emasaka's comment on 島の数をカウントする

標準入力→標準出力です。

#!/bin/bash 
declare -a ISLANDS_WHITE
declare -a ISLANDS_BLACK

function expand_islands() {
    local -i x=$1
    local -i y=$2
    local bw=$3

    local -a islands
    if [ $bw = □ ]; then
        islands=("${ISLANDS_WHITE[@]}")
    else
        islands=("${ISLANDS_BLACK[@]}")
    fi

    local p found
    local -i i n=${#islands[@]}
    for ((i = 0; i < $n; i++)); do
        for p in ${islands[i]}; do
            local -i px=${p%,*} py=${p#*,}
            if (((x == px && y == py + 1) ||
                 (y == py && x == px + 1) )); then
                if [ -z "$found" ]; then
                    islands[i]="${islands[i]} $x,$y"
                    found=$i
                else    # join two islands
                    islands[found]="${islands[found]} ${islands[i]} $x,$y"
                    unset islands[i]
                fi
                break
            fi
        done
    done
    [ -z "$found" ] && islands=("${islands[@]}" "$x,$y")        # new island

    if [ $bw = □ ]; then
        ISLANDS_WHITE=("${islands[@]}")
    else
        ISLANDS_BLACK=("${islands[@]}")
    fi
}

function check_islands() {
    local line
    local -i y=0
    while read -r line; do
        local -i x
        for ((x = 0; x < ${#line}; x++)); do
            expand_islands $x $y ${line:$x:1}
        done
        ((y++))
    done
}

check_islands
echo 白の島は${#ISLANDS_WHITE[@]}
echo 黒の島は${#ISLANDS_BLACK[@]}

[ Bash ] [ download code ] ]

emasaka's comment on 重複無し乱数

重複無し乱数 (Nested Flatten)

$ bingo 10
2 10 3 5 6 4 1 8 7 9

function bingo() {
    local n=$1
    local -a array
    local -i i j tmp

    for ((i = 0; i < n; i++)) {
        array[i]=$((i+1))
    }

    for ((i = 0; i < n; i++)) {
        ((j = RANDOM % (i + 1),
          tmp = array[i], array[i] = array[j], array[j] = tmp))
    }

    echo ${array[@]}
}

[ Bash ] [ download code ] ]

emasaka's comment on inline/embeded bytecode assembly

inline/embeded bytecode assembly (Nested Flatten)

言語がbashだった。別れたい…
bashだとアドレス渡された時なんか恥ずかしいｗｗ
セグフォしちゃうしｗｗ
ポインタにはせめて有効なアドレスを渡して欲しい・・・
カーネル空間を渡されたら・・・・もう最悪ｗｗ
せめて普通にページやマッピングぐらいは考えて欲しい。
常識的に仮想記憶を使って欲しいだけなんです！

# …ネタはさておき。
# スクリプトを実行しているbashに、組み込みコマンドとして
# duffを追加します。
# アセンブリ言語部分はCからgcc -O0 -Sで出力したものです。

pgm_dir=$(mktemp -u /tmp/duff.XXXXXXXXXX)
pgm_name=duff
pgm_source=${pgm_name}.s

(
    mkdir $pgm_dir
    cd $pgm_dir
    cat > $pgm_dir/$pgm_source <<'__ASM__'
        .text
.globl duff_builtin
        .type   duff_builtin, @function
duff_builtin:
        pushl   %ebp
        movl    %esp, %ebp
        pushl   %ebx
        subl    $36, %esp
        call    __i686.get_pc_thunk.bx
        addl    $_GLOBAL_OFFSET_TABLE_, %ebx
        cmpl    $0, 8(%ebp)
        jne     .L2
        call    builtin_usage@PLT
        movl    $258, -28(%ebp)
        jmp     .L3
.L2:
        movl    8(%ebp), %eax
        movl    4(%eax), %eax
        movl    (%eax), %eax
        movl    %eax, (%esp)
        call    atoi@PLT
        movl    %eax, -8(%ebp)
        movl    8(%ebp), %eax
        movl    (%eax), %eax
        movl    %eax, 8(%ebp)
        cmpl    $0, 8(%ebp)
        jne     .L4
        call    builtin_usage@PLT
        movl    $258, -28(%ebp)
        jmp     .L3
.L4:
        movl    8(%ebp), %eax
        movl    4(%eax), %eax
        movl    (%eax), %eax
        movl    %eax, (%esp)
        call    atoi@PLT
        movl    %eax, -12(%ebp)
        movl    8(%ebp), %eax
        movl    (%eax), %eax
        movl    %eax, 8(%ebp)
        cmpl    $0, 8(%ebp)
        jne     .L5
        call    builtin_usage@PLT
        movl    $258, -28(%ebp)
        jmp     .L3
.L5:
        movl    8(%ebp), %eax
        movl    4(%eax), %eax
        movl    (%eax), %eax
        movl    %eax, (%esp)
        call    atoi@PLT
        movl    %eax, -16(%ebp)
        movl    -16(%ebp), %edx
        movl    %edx, %eax
        sarl    $31, %eax
        movl    %eax, %ecx
        shrl    $29, %ecx
        leal    (%edx,%ecx), %eax
        andl    $7, %eax
        subl    %ecx, %eax
        movl    %eax, -24(%ebp)
        cmpl    $7, -24(%ebp)
        ja      .L6
        movl    -24(%ebp), %eax
        sall    $2, %eax
        movl    .L15@GOTOFF(%eax,%ebx), %eax
        addl    %ebx, %eax
        jmp     *%eax
        .section        .rodata
        .align 4
        .align 4
.L15:
        .long   .L7@GOTOFF
        .long   .L8@GOTOFF
        .long   .L9@GOTOFF
        .long   .L10@GOTOFF
        .long   .L11@GOTOFF
        .long   .L12@GOTOFF
        .long   .L13@GOTOFF
        .long   .L14@GOTOFF
        .text
.L7:
        movl    -12(%ebp), %eax
        movzbl  (%eax), %edx
        movl    -8(%ebp), %eax
        movb    %dl, (%eax)
        addl    $1, -12(%ebp)
.L14:
        movl    -12(%ebp), %eax
        movzbl  (%eax), %edx
        movl    -8(%ebp), %eax
        movb    %dl, (%eax)
        addl    $1, -12(%ebp)
.L13:
        movl    -12(%ebp), %eax
        movzbl  (%eax), %edx
        movl    -8(%ebp), %eax
        movb    %dl, (%eax)
        addl    $1, -12(%ebp)
.L12:
        movl    -12(%ebp), %eax
        movzbl  (%eax), %edx
        movl    -8(%ebp), %eax
        movb    %dl, (%eax)
        addl    $1, -12(%ebp)
.L11:
        movl    -12(%ebp), %eax
        movzbl  (%eax), %edx
        movl    -8(%ebp), %eax
        movb    %dl, (%eax)
        addl    $1, -12(%ebp)
.L10:
        movl    -12(%ebp), %eax
        movzbl  (%eax), %edx
        movl    -8(%ebp), %eax
        movb    %dl, (%eax)
        addl    $1, -12(%ebp)
.L9:
        movl    -12(%ebp), %eax
        movzbl  (%eax), %edx
        movl    -8(%ebp), %eax
        movb    %dl, (%eax)
        addl    $1, -12(%ebp)
.L8:
        movl    -12(%ebp), %eax
        movzbl  (%eax), %edx
        movl    -8(%ebp), %eax
        movb    %dl, (%eax)
        addl    $1, -12(%ebp)
        subl    $8, -16(%ebp)
        cmpl    $0, -16(%ebp)
        jg      .L7
.L6:
        movl    $0, -28(%ebp)
.L3:
        movl    -28(%ebp), %eax
        addl    $36, %esp
        popl    %ebx
        popl    %ebp
        ret
        .size   duff_builtin, .-duff_builtin
.globl duff_doc
        .section        .rodata
.LC0:
        .string "Duff's device implementation"
        .section        .data.rel.local,"aw",@progbits
        .align 4
        .type   duff_doc, @object
        .size   duff_doc, 8
duff_doc:
        .long   .LC0
        .long   0
.globl duff_struct
        .section        .rodata
.LC1:
        .string "duff"
.LC2:
        .string "duff to from count"
        .section        .data.rel,"aw",@progbits
        .align 4
        .type   duff_struct, @object
        .size   duff_struct, 24
duff_struct:
        .long   .LC1
        .long   duff_builtin
        .long   1
        .long   duff_doc
        .long   .LC2
        .long   0
        .section        .text.__i686.get_pc_thunk.bx,"axG",@progbits,__i686.get_pc_thunk.bx,comdat
.globl __i686.get_pc_thunk.bx
        .hidden __i686.get_pc_thunk.bx
        .type   __i686.get_pc_thunk.bx, @function
__i686.get_pc_thunk.bx:
        movl    (%esp), %ebx
        ret
        .section        .note.GNU-stack,"",@progbits
__ASM__

    cc -shared -o $pgm_name $pgm_source
)

enable -f $pgm_dir/$pgm_name $pgm_name
rm -rf $pgm_dir

[ Bash ] [ download code ] ]

emasaka's comment on RFC 4180対応版 CSVレコードの分解

RFC 4180対応版 CSVレコードの分解 (Nested Flatten)

標準入力→標準出力です。

function splitCSV() {
    local c in_dq after_dq
    local -i count=0

    while read -n 1 c; do
        if [ -z "$in_req" ]; then
            in_req=1
            echo -n "$((++count)) => "
        fi

        : ${c:=$'\n'}   # 改行は空文字として読まれる

        if [ "$c" = \" ]; then
            if [ -n "$after_dq" ]; then
                echo -n \"
                after_dq=''
            else
                after_dq=1
            fi
        else
            if [ -n "$after_dq" ]; then
                after_dq=''
                if [ -n "$in_dq" ]; then
                    in_dq=''
                else
                    in_dq=1
                fi
            fi

            if [ -z "$in_dq" -a \( "$c" = , -o "$c" = $'\n' \) ]; then
                in_req=''
                echo
            else
                echo -n "$c"
            fi
        fi
    done
}

[ Bash ] [ download code ] ]

emasaka's comment on 日本語メールのエンコード

日本語メールのエンコード (Nested Flatten)

ヘッダのエンコードに適切なコマンドが見つからなかったので、
nkfと正規表現で実装しました。
入力はUTF-8を前提にしています。

$ cat sample.tmpl
From: [[from]]
To: [[to]]
Subject: [[name]]さんにメッセージが届いています

[[name]]さんに[[fromname]]さんからメッセージが届いています。
以下のURLからアクセスできます。
[[url]]
$ cat sampe.conf
from='from@example.org'
to='to@example.org'
name='どう書く'
fromname='管理者'
url='http://ja.doukaku.org/'
$ bash mailencode.bash sample.conf sample.tmpl | cat -v
From: from@example.org^M
To: ^[$B$*$l^[(B <to@example.org>^M
Subject: ^[$B$I$&=q$/$5$s$K%a%C%;!<%8$,FO$$$F$$$^$9^[(B^M
Date: Wed, 12 Nov 2008 20:13:08 +0900^M
Message-ID: <hoge.1226488388.6361.7459@example.jp>^M
MIME-Version: 1.0^M
Content-Type: text/plain; charset="ISO-2022-JP"^M
Content-Transfer-Encoding: 7bit^M
^M
^[$B$I$&=q$/$5$s$K4IM}<T$5$s$+$i%a%C%;!<%8$,FO$$$F$$$^$9!#^[(B^M
^[$B0J2<$N^[(BURL^[$B$+$i%"%/%;%9$G$-$^$9!#^[(B^M
http://ja.doukaku.org/^M

#!/bin/bash

declare tmpl_sedcmd

function quotemeta() {          # just workaround
    echo "$1" | sed -e 's|[]/.?*[]|\\&|g'
}

function load_conf() {
    local file=$1

    local s
    while read -r s; do
        eval "local _CONF_$s"
    done < $file

    local v
    for v in ${!_CONF_*}; do
        local b=$(quotemeta "[[${v#_CONF_}]]")
        local a=$(quotemeta "${!v}")
        tmpl_sedcmd="$tmpl_sedcmd;s/$b/$a/g"
    done
}

function b_encode() {
    local text=$1

    while [[ $text =~ ([ -~]*)([^ -~][^ -~]*)(.*) ]]; do
        echo -n "${BASH_REMATCH[1]}"
        echo -n "${BASH_REMATCH[2]}" | nkf -Wj | nkf -M
        text=${BASH_REMATCH[3]}
    done
    echo "$text"
}

readonly ex_headers='MIME-Version: 1.0
Content-Type: text/plain; charset="ISO-2022-JP"
Content-Transfer-Encoding: 7bit'

function header() {
    local s
    while read -r s; do
        [ -z "$s" ] && break
        s=$(echo "$s" | sed -e "$tmpl_sedcmd")
        b_encode "$s"
    done
    echo "Date: $(date -R)"
    echo "Message-ID: <$(hostname).$(date +%s).$$.$RANDOM@$(hostname -f)>"
    echo "$ex_headers"
    echo
}

function body() {
    sed -e "$tmpl_sedcmd" | nkf -Wj
}

conf=$1
templ=$2
load_conf $conf
{ header; body; } < $templ | nkf -Lw

[ Bash ] [ download code ] ]

emasaka's comment on 逆順になるあみだくじ

逆順になるあみだくじ (Nested Flatten)

function amida() {
    local n=$1

    local -i i
    local -a ary
    for ((i = 0; i < n; i++)) {
        ary[i]=$i
    }
    printf '%d ' ${ary[@]}
    echo

    local -i row_changed=1 left_changed=0
    while ((row_changed != 0)); do
        row_changed=0
        for ((i = 0; i < n - 1 ; i++)) {
            echo -n '|'
            if ((left_changed == 0 && ary[i] < ary[i+1])); then
                local -i tmp=${ary[i]}
                ary[i]=${ary[i+1]}
                ary[i+1]=$tmp
                left_changed=1
                row_changed=1
                echo -n '_'
            else
                left_changed=0
                echo -n ' '
            fi
        }
        echo '|'
    done

    printf '%d ' ${ary[@]}
    echo
}

amida $1

[ Bash ] [ download code ] ]

emasaka's comment on 疑似並行処理

疑似並行処理 (Nested Flatten)

さらに変形して継続渡しもどきに。

#!/bin/bash

A() {
  local i=$1
  local cont=$2
  if ((i <= 10)); then
    echo $((i++))
    if [ -n "$cont" ]; then
      $cont "$FUNCNAME $i"
    else
      $FUNCNAME $i
    fi
  else
    [ -n "$cont" ] && $cont
  fi
}

CHARS=({a..j})

B() {
  local i=$1
  local cont=$2
  if ((i < ${#CHARS[@]} )); then
    echo ${CHARS[i++]}
    if [ -n "$cont" ]; then
      $cont "$FUNCNAME $i"
    else
      $FUNCNAME $i
    fi
  else
    [ -n "$cont" ] && $cont
  fi
}

A 1 'B 0'

[ Bash ] [ download code ] ]

emasaka's comment on 疑似並行処理

疑似並行処理 (Nested Flatten)

sleepをreturnに変えたら、疑似並行処理なコルーチンみたいなのになりました。

#!/bin/bash

A() {
  while ((i <= 10)); do
    echo $((i++))
    return
  done
  i=DONE
}

CHARS=({a..j})

B() {
  while ((j < ${#CHARS[@]} )); do
    echo ${CHARS[j++]}
    return
  done
  j=DONE
}

doit() {
  local i=1
  local j=0
  
  while [ $i != DONE -a $j != DONE ]; do
    [ $i != DONE ] && A
    [ $j != DONE ] && B
  done
}

doit

[ Bash ] [ download code ] ]

emasaka's comment on 疑似並行処理

疑似並行処理 (Nested Flatten)

起動あたりの影響を受けずに混ざって出力されるよう、sleep 1しています。

#!/bin/bash

A(){
  local i
  for i in {1..10}; do
    echo $i
    sleep 1
  done
}

B() {
  local i
  for i in {a..j}; do
    echo $i
    sleep 1
  done
}

A & B

[ Bash ] [ download code ] ]

emasaka's comment on XMLから情報を取り出す

XMLから情報を取り出す (Nested Flatten)

正規表現で。bash 3.0以降。

d=$data
while [[ "$d" =~ \<lastBuildDate\>([^<]*)\</lastBuildDate\>(.*) ]]; do
    echo ${BASH_REMATCH[1]}
    d=${BASH_REMATCH[2]}
done

[ Bash ] [ download code ] ]

emasaka's comment on 入出力の中継

入出力の中継 (Nested Flatten)

FIFO（名前つきパイプ）を使いました。

#!/bin/bash
cmd_a=$1
cmd_b=$2

PIPE_B2A=$(mktemp -u /tmp/pipe_b2a.XXXXXXXXXX)
trap "rm -f $PIPE_B2A; exit" EXIT
mkfifo $PIPE_B2A

$cmd_a < $PIPE_B2A | $cmd_b > $PIPE_B2A

[ Bash ] [ download code ] ]

emasaka's comment on n人中m人が当選するくじ

n人中m人が当選するくじ (Nested Flatten)

#!/bin/bash
function randsample() {
    local n=$1
    local m=$2
    local -a array
    local -i i j tmp

    for ((i = 0; i < n; i++)) {
        array[i]=$i
    }

    # shuffle
    for ((i = 0; i < n; i++)) {
        ((j = RANDOM % (i + 1),
          tmp = array[i], array[i] = array[j], array[j] = tmp))
    }

    # print top m
    for ((i = 0; i < m && i < n; i++)) {
        echo ${array[i]}
    }
}

randsample 100 10

[ Bash ] [ download code ] ]

emasaka's comment on コインを減らす払い方

コインを減らす払い方 (Nested Flatten)

#63の写経です。

#!/bin/bash
readonly coins='1 5 10 50 100 500'
readonly coins_rev='500 100 50 10 5 1'

function changes() {
    local -i total=$1
    local -i coin num
    for coin in $coins_rev; do
        if ((total >= coin)); then
            ((num = total / coin, total = total - coin * num))
            echo -n "$coin=$num "
        fi
    done
}

function pay() {
    local -i expence=$1
    local wallet=$2
    local -i total=0 coin num
    local item var

    for item in $wallet; do
        eval local wallet_$item
        eval local payment_${item%=*}
    done

    for coin in $coins; do
        var=wallet_$coin
        if [ -n "${!var}" ]; then
            local -i r=$(((expence - total) / coin + 1))
            ((num = r < ${!var} ? r : ${!var}))
            eval payment_$coin=$num
            ((total += coin * num))
            ((total >= expence)) && break
        fi
    done

    if ((total > expence)); then
        for item in $(changes $((total - expence))); do
            eval coin=${item/=/;num=}
            var=payment_$coin
            if [ -n "${!var}" ]; then
                eval "(($var -= num))"
                ((${!var} <= 0)) && unset $var
            fi
        done
    fi

    for var in ${!payment_*}; do
        echo -n "${var#payment_}=${!var} "
    done
    echo
}

pay 147 '1=2 10=4 100=3'

[ Bash ] [ download code ] ]

emasaka's comment on '('と')'の対応

'('と')'の対応 (Nested Flatten)

お題のサンプルにあわせて、引数で'('と')'を与えています。

$ ./kakko.sh '(' ')' '(())'
True
$ ./kakko.sh '(' ')' '(()'
False

#!/bin/sh
if [ `echo "$3" | tr -d "[^$1]" | wc -c` \
   = `echo "$3" | tr -d "[^$2]" | wc -c` ]; then
    echo True
else
    echo False
fi

[ Bash ] [ download code ] ]

emasaka's comment on 世界時計

世界時計 (Nested Flatten)

訂正。×：LANG　○：TZ でした。

#!/bin/sh
FMT='時刻は%Y年%m月%d日 %k時%M分%S秒です。'
date "+現在の$FMT"
date -u "+グリニッジ標準$FMT"
TZ=America/Los_Angeles date "+アメリカ・ロサンゼルスの$FMT"

[ Bash ] [ download code ] ]

emasaka's comment on 世界時計

世界時計 (Nested Flatten)

Linux、FreeBSD、Macで動作確認。

ロケールとかdateの違いとかややこしい＞＜

#!/bin/sh
FMT='時刻は%Y年%m月%d日 %k時%M分%S秒です。'
date "+現在の$FMT"
date -u "+グリニッジ標準$FMT"
LANG=America/Los_Angeles date "+アメリカ・ロサンゼルスの$FMT"

[ Bash ] [ download code ] ]

emasaka's comment on 漢数字で九九の表

漢数字で九九の表 (Nested Flatten)

やりはじめてから、位置パラメータを指定できない罠に気づきました。

#!/bin/bash
digit=(○ 一 二 三 四 五 六 七 八 九)

漢数字出力() {
    local n=$*
    local -i i
    ((n < ${#digit[@]})) && echo -n '　'
    for ((;i < ${#n}; i++)) {
        echo -n ${digit[${n:$i:$#}]}
    }
}

九九一段() {
    local -i m=$*
    local -i n
    for ((;++n < ${#digit[@]};)) {
        漢数字出力 $((m * n))
        echo -n ' '
    }
}

九九() {
    local -i m
    for ((;++m < ${#digit[@]};)) {
        九九一段 $m
        echo
    }
}

九九

[ Bash ] [ download code ] ]

？せんたくいた's comment on π

π (Nested Flatten)

前半は半径rの1/4円の面積aを求めています。
後半では面積aを単純に4倍し、r*rで割ってpiを求めたかったのですが、
bashでは小数を持てないので、小数部分を10倍しながら表示しています。

$ ./pi.sh 100
3.1416
$ ./pi.sh 241
3.1400974
$ ./pi.sh 1000
3.141548

#/bin/bash

r="$1"
a=0

for ((x=1;x<=r;x++)) {
    for ((y=0;y<r;y++)) {
        if ((x*x+y*y<=r*r));then
            a=$((a+1))
        else break
        fi
    }
}

z=$((a*4));m=$((z/(r*r)))
echo -n $m
z=$((z-m*r*r))
if ((z));then
    echo -n .
fi
for ((i=1;i<8&&z>0;i++)) {
    n=$((z*10/(r*r)))
    z=$((z*10-n*r*r))
    echo -n $n
}
echo

[ Bash ] [ download code ] ]

emasaka's comment on 数値リストの圧縮

数値リストの圧縮 (Nested Flatten)

$ compact_number_list 1 3 4 5 6 12 13 15 20 25 26 27
[ 1 [ 3 6 ] 12 13 [ 15 25 5 ] 26 27 ]

function compact_number_list() {
    echo -n '[ '
    while (($# > 0));do
        if (($# >= 3)) && (($2 - $1 == $3 - $2));then
            local d=$(($2 - $1))
            echo -n "[ $1 "
            shift 2
            while (($# >= 2)) && (($2 - $1 == d));do
                shift
            done
            echo -n "$1 "
            ((d != 1)) && echo -n "$d "
            echo -n '] '
        else
            echo -n "$1 "
        fi
        shift
    done
    echo ']'
}

[ Bash ] [ download code ] ]

emasaka's comment on タブ区切りデータの処理

タブ区切りデータの処理 (Nested Flatten)

sortを使いawkを使わない解。bashとdashで動作確認。

1、3、4、5行目にはタブ文字が含まれています。

IFS='    '
read -r id forename surname age
echo "$id    $surname    $forename    $age"
sort -n -t '    ' | while read -r id forename surname age;do
    echo "$id    $surname    $forename    $((age + 1))"
done

[ Bash ] [ download code ] ]