Latest comments for language 'Other' on doukaku.org

hchbaw's comment on アレイのuniq

Clojure です、distinct のようです。Clojure では、 sequence が返ってくところが特徴的ですね。

1 2	(distinct [3, 1, 4, 1, 5, 9, 2, 6, 5, 3, 5, 8, 9, 7, 9]) ;=> (3 1 4 5 9 2 6 8 7)

[ Other ] [ download code ] ]

lufia's comment on 疑似並行処理

疑似並行処理 (Nested Flatten)

スレッド2つにしてみました。

implement Channel;

include "sys.m";
    sys: Sys;
include "draw.m";

Channel: module
{
    init: fn(ctxt: ref Draw->Context, argv: list of string);
};

init(nil: ref Draw->Context, nil: list of string)
{
    sys = load Sys Sys->PATH;
    c1 := chan of int;
    c2 := chan of int;

    spawn task('A', 10, c1);
    spawn task('0', 10, c2);
    (<- c1, <- c2);
    sys->print("\n");
}

task(bp, n: int, c: chan of int)
{
    for(i := 0; i < n; i++)
        sys->print("%c", bp+i);
    c <- = 0;
}

[ Other ] [ download code ] ]

hchbaw's comment on 疑似並行処理

疑似並行処理 (Nested Flatten)

Clojure です、トランザクション内で更新をかけるんですね。

(import '(java.util.concurrent Executors))

(defn- par
  [& tasks]
  (let [exe (.newCachedThreadPool Executors)]
    (try
     (.invokeAll exe tasks)
     (finally (.shutdown exe)))))

(let [r (ref '())]
  (par
   (fn []
     (dotimes n 10
       (dosync (alter r #(cons (inc n) %)))
       (.sleep Thread 1)))
   (fn []
     (dotimes n 10
       (dosync (alter r #(cons (Character. (char (+ 64 (inc n)))) %)))
       (.sleep Thread 1))))
  @r)
;=>(\J 10 \I 9 \H 8 \G 7 \F 6 \E 5 \D 4 \C 3 \B 2 \A 1)

[ Other ] [ download code ] ]

いげ太's comment on 疑似並行処理

疑似並行処理 (Nested Flatten)

#r "system.servicemodel.dll"

let sc = new System.Collections.Generic.SynchronizedCollection<obj>() in
let inline sc_add x = sc.Add(x); System.Threading.Thread.Sleep(64) in
[ async { Seq.iter sc_add {1..10} }; async { Seq.iter sc_add {'A'..'J'} } ]
|> (Async.Parallel >> Async.Run >> ignore);
sc |> Seq.to_list |> printfn "%A"

[ Other ] [ download code ] ]

pa's comment on クリップボードへの転送

クリップボードへの転送 (Nested Flatten)

ファイル入出力のテスト。

Infernoの場合は/chan/snarfに対してread/writeすると
コピーバッファ(snarfと呼ばれている)に
アクセスしていることになる。

インターフェースはxcutに倣った。
引数なしで実行するとstdinからのデータを
コピーバッファに格納する。
-pをつけて実行するとコピーバッファの内容をstdoutに出力する。

# usage: d188 [-p]
#        -p   : paste to stdout
#        none : copy from stdin to clipboard

implement d188;

include "sys.m";
include "draw.m";

d188: module{
    sys: Sys;
    init: fn(ctx: ref Draw->Context, argv: list of string);
    cut: fn();
    paste: fn();
};

cut()
{
    stdin: ref Sys->FD;
    snarf: ref Sys->FD;
    buf:= array[256] of byte;

    stdin = sys->fildes(0);
    snarf = sys->open("/chan/snarf", sys->OWRITE);
    if(snarf == nil){
         return;
    }

    for(;;){
        n:= sys->read(stdin, buf, len buf);
        if(n <= 0) break;

        sys->write(snarf, buf, n);
    }
}

paste()
{
    snarf: ref sys->FD;
    buf:= array[256] of byte;

    snarf = sys->open("/chan/snarf", sys->OREAD);
    if(snarf == nil){
         return;
    }

    for(;;){
        n := sys->read(snarf, buf, len buf);
        if(n <= 0) break;

        sys->print("%s", string buf[0: n]);
    }
}

init(ctx: ref Draw->Context, argv: list of string)
{
    is_p := 0;
    sys = load Sys Sys->PATH;

    argv = tl argv;
    while(argv != nil){
        if(hd argv == "-p"){
              is_p = 1;
        }
        argv = tl argv;
    }

    if(is_p){
        paste();
    }else{
        cut();
    }
}

[ Other ] [ download code ] ]

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

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

日本語のテスト。
数値の定数を作るのにlenを利用。
(匿名さんのPerlのコードを見てしまったのでそのまま借用)
もっと美しくかけないものかな？

出力は省略。

implement dZIZ;

include "sys.m";
include "draw.m";

dZIZ: module{
    sys: Sys;
    init: fn(ctx: ref Draw->Context, argv: list of string);
    main: fn();
};

main()
{
    num:= array[] of {
        "〇", "一", "二", "三", "四", "五", "六", "七", "八", "九"
    };
    spc := "　";

    zero, one, ten: int;
    i, j: int;
    u, l: int;

    zero = len "";
    one = zero; one++;
    ten = len num;

    for(i = one; i < ten; i++){
        for(j = one; j < ten; j++){
            l = (i * j) % ten;
            u = (i * j) / ten;
            sys->print("%s", spc);
            if(u == zero){
                sys->print("%s", spc);
            }else{
                sys->print("%s", num[u]);
            }
            sys->print("%s", num[l]);
        }
        sys->print("\n");
    }
}

init(ctx: ref Draw->Context, argv: list of string)
{
    sys = load Sys Sys->PATH;

    main ();
}

[ Other ] [ download code ] ]

pa's comment on 疑似並行処理

疑似並行処理 (Nested Flatten)

spawnを試す。
channelで子プロセスの終了を待つ。

出力
a0b1c2d3e4f5g6h7ij89

implement d215;

include "sys.m";
include "draw.m";

d215: module{
    init: fn(ctx: ref Draw->Context, argv: list of string);
};

sys: Sys;

init(ctx: ref Draw->Context, argv: list of string)
{
    i: int;
    ch := chan of int;

    sys = load Sys Sys->PATH;

    spawn print_num(ch);

    for(i = 0; i < 10; i ++){
        sys->print("%c", i + 'a');
    }

    <- ch;
}

print_num(ch: chan of int)
{
    i: int;

    for(i = 0; i < 10; i ++){
        sys->print("%d", i);
    }

    ch <- = 0;

    exit;
}

[ Other ] [ download code ] ]

pa's comment on 税込み価格への修正

税込み価格への修正 (Nested Flatten)

正規表現のテスト。

文字列を配列として利用してみる。
スライスで扱えるのですっきりと書くことが出来る。

Regexモジュールをロードし、
Regex->compileで正規表現のコンパイル、
Regex->executeで実行。
戻り値は配列だが0番目のみ有効。
1番目以降を使うのは正規表現のなかに()を入れてマッチさせる場合らしい。

今回の使用方法では、executeよりもexecuteseの方が良かったかもしれない。

例
% d6 ダイコン150円、ハクサイ120円、ジャガイモ30円
ダイコン158円、ハクサイ126円、ジャガイモ32円

implement d6;

include "sys.m";
include "draw.m";
include "string.m";
include "regex.m";

d6: module{
    sys: Sys;
    init: fn(ctx: ref Draw->Context, argv: list of string);
    usage: fn(prog: string);
    main: fn(src: string);
};

main(src: string)
{
    regex: Regex;
    regex = load Regex Regex->PATH;
    str: String;
    str = load String String->PATH;

    re: Regex->Re;
    a, b, p, pre, post : int;

    (re, nil) = regex->compile("[0-9]+", 0);

    p = 0;
    while(p < len src){
        rslt := regex->execute(re, src[p:]);
        if(rslt == nil){
            break;
        }

        (a, b) = rslt[0];    
        sys->print("%s", src[p: p + a]);
        (pre, nil) = str->toint(src[p + a:p + b], 10);
        post = int (real pre * 1.05);
        sys->print("%d", post);

        p += b;
    }

    sys->print("%s", src[p:]);
}

init(ctx: ref Draw->Context, argv: list of string)
{
    sys = load Sys Sys->PATH;

    prog: string = hd argv;

    argv = tl argv;
    if(argv == nil){
        usage(prog);
        return;
    }

    while(argv != nil){
        main (hd argv);
        argv = tl argv;
    }
    sys->print("\n");
}

usage (prog: string)
{
    sys->print("usage: %s [string]\n", prog);
}

[ Other ] [ download code ] ]

vtwntmtn's comment on 疑似並行処理

疑似並行処理 (Nested Flatten)

Makefileという名前で保存して、以下のように実行してください。（-jオプションは標準的ではないかもしれないので、もしかするとGNU Make専用かも）

make -j2

all: numbers alphabets

numbers:
    @echo 0
    @echo 1
    @echo 2
    @echo 3
    @echo 4
    @echo 5
    @echo 6
    @echo 7
    @echo 8
    @echo 9

alphabets:
    @echo A
    @echo B
    @echo C
    @echo D
    @echo E
    @echo F
    @echo G
    @echo H
    @echo I
    @echo J

[ Other ] [ download code ] ]

matyr's comment on 疑似並行処理

疑似並行処理 (Nested Flatten)

よく混ざるようasyncを二重に入れてみた。

using Nemerle.Concurrency;

foreach(n in ['0', 'a'])
  async foreach(i in [0..9])
    async Nemerle.IO.print((i + n) :> char)

[ Other ] [ download code ] ]

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

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

Limbo習作。
rand, daytime, stringモジュールのテスト。

すでにLimboでいっぱい書いている方がいるようなので、遠慮がちに・・・

# file: d4.b
# Lottery

implement d4;

include "sys.m";
include "draw.m";
include "string.m";
include "rand.m";
include "daytime.m";

sys: Sys;
usage: fn(prog: string);

d4: module
{
    init: fn(ctxt: ref Draw->Context, argv: list of string);
};

init (ctxt: ref Draw->Context, argv: list of string)
{
    str: String;
    rand: Rand;
    time: Daytime;
    n, m, i, val: int;
    prog: string;

    sys = load Sys Sys->PATH;
    str = load String String->PATH;
    rand = load Rand Rand->PATH;
    time = load Daytime Daytime->PATH;

    prog = hd argv;

    argv = tl argv;
    if(argv == nil){
        usage(prog);
        return ;
    }
    (n, nil) = str->toint(hd argv, 10);

    argv = tl argv;
    if(argv == nil){
        usage(prog);
        return;
    }
    (m, nil) = str->toint(hd argv, 10);

    if(m == 0 || n == 0 || n < m){
        usage(prog);
        return;
    }

    flags := array [n] of int;
    for(i = 0; i < n; i++){
        flags[i] = 0;
    }

    rand->init(time->now());
    while(m > 0){
        val = rand->rand(n);
        if(flags[val] == 0){
            flags[val] = 1;
            m --;
        }
    }

    for(i = 0; i < n; i++){
        if(flags[i]){
            sys->print("%d ", i + 1);
        }
    }
    sys->print("\n");
}

usage (prog: string)
{
    sys->print("usage: %s n m\n", prog);
}

[ Other ] [ download code ] ]

pa's comment on Hello, world!

Hello, world! (Nested Flatten)

limboはじめました。
まずはエディタではまる。

コードは公式のドキュメントほぼそのまま。
d2.bとして保存、
limbo d2.b
でビルド。
d2
で実行。

implement d2;

include "sys.m";
include "draw.m";

d2: module
{
    init: fn(ctxt: ref Draw->Context, argv: list of string);
};

init (ctxt: ref Draw->Context, argv: list of string)
{
    sys: Sys;
    sys = load Sys Sys->PATH;
    sys->print("Hello, World!\n");
}

[ Other ] [ download code ] ]

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

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

はじめまして。最初awk向きなのになぜ未投稿？と思ったのですが、ソートが必要なのですね。教科書どおりのqsortですが、整数値をソートする、ということで17行目で　+0　してから比較してみました。

>type data.txt
ID    Surname    Forename    Age
0    Suzuki    Taro    19
1    Sato    Hanako    18
11    Kato    Junko    40
3    Yamammoto    Shingo    46

>type  tab_sort.awk
BEGIN{FS="\t";OFS="\t"}

NR == 1{ print $1,$3,$2,$4 }
NR > 1{t=$2;$2=$3;$3=t;$4=$4+1;A[NR]=$0;}

END{qsort(A,2,NR)
     for(i=2;i<=NR;i++) print A[i]
    }

function qsort(A,left,right){
   if(left>=right) return
   swap(A,left,left+int((right-left+1)*rand()))
   last=left
   for(i=left+1;i<=right;i++)
       #if(A[i] < A[left]) swap(A,++last,i)
       if(A[i] + 0 < A[left] + 0) swap(A,++last,i)
   swap(A,left,last)
   qsort(A,left,last-1)
   qsort(A,last+1,right)
}

function swap(A,i,j){
   t=A[i];A[i]=A[j];A[j]=t
}

>mawk32 -f tab_sort.awk data.txt > kekka.txt
>type kekka.txt
ID    Forename    Surname    Age
0    Taro    Suzuki    20
1    Hanako    Sato    19
3    Shingo    Yamammoto    47
11    Junko    Kato    41

[ Other ] [ download code ] ]

nori's comment on 世界時計

世界時計 (Nested Flatten)

> tzinfo-examples.txtのアメリカ夏時間の定義が古いみたいですよ。

この時期じゃないと現象としてすぐには発覚しない旬なネタだったんですね。大変おいしゅうございました。:)

2.5.2でも直ってないみたいですね。コードはここからの抜粋です。 http://www.python.org/doc/2.5.2/lib/datetime-tzinfo.html

pytzなるものが存在するようです。 http://pytz.sourceforge.net/

tzはtimezone情報。pytzでコンパイルして使用 http://www.twinsun.com/tz/tz-link.htm

# In the US, DST starts at 2am (standard time) on the first Sunday in April.
DSTSTART = datetime(1, 4, 1, 2)
# and ends at 2am (DST time; 1am standard time) on the last Sunday of Oct.
# which is the first Sunday on or after Oct 25.
DSTEND = datetime(1, 10, 25, 1)

[ Other ] [ download code ] ]

nori's comment on 世界時計

世界時計 (Nested Flatten)

ただブラウザで開くだけ。

http://wwp.greenwichmeantime.com/time-zone/usa/pacific-time/

1	http://wwp.greenwichmeantime.com/time-zone/usa/pacific-time/

[ Other ] [ download code ] ]

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

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

条件四：表をファイルから読み込まない。 KYです。

sawat's comment on 世界時計

世界時計 (Nested Flatten)

プログラムを実行した端末のロケールと、グリニッジ標準時と、ロサンゼルスの現在時刻をそれぞれ表示してください。時刻の表示はリアルタイムでなく、一回限りで構いません。時刻のフォーマットは自由とします。

出力例
現在の時刻は、2008年10月29日 11時36分21秒です。
グリニッジ標準時刻は、2008年10月29日 2時36分21秒です。
アメリカ・ロサンゼルスの時刻は、2008年10月28日 19時36分21秒です。

[ Other ] [ download code ] ]

horiuchi's comment on 2^i * 3^j * 5^k なる整数

2^i * 3^j * 5^k なる整数 (Nested Flatten)

Forth の実績追加のため、実装してみました。

: DIV_CHECK ( n d -- n/d^m )
BEGIN
  2DUP MOD 0=
WHILE
  DUP -ROT / SWAP
REPEAT
DROP ;

: HummingNumbers ( n -- )
1
BEGIN
  OVER 0>
WHILE
  DUP
  2 DIV_CHECK
  3 DIV_CHECK
  5 DIV_CHECK
  1 = IF
    DUP .
    SWAP 1- SWAP
  THEN
  1+
REPEAT
2DROP
;

[ Other ] [ download code ] ]

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

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

覚え立てのNemerleで

def Digits = "○一二三四五六七八九";
def Ten = Digits.Length;
def OneToNine = $[Ten/Ten .. Ten-Ten/Ten];

foreach(i in OneToNine)
  System.Console.WriteLine(OneToNine.FoldLeft("", (j, s) => {
    def n = i * j;
    $"$s $(if(n < Ten) '　' else Digits[n / Ten])$(Digits[n % Ten])" }));

[ Other ] [ download code ] ]

queck's comment on ウィンドウの表示

ウィンドウの表示 (Nested Flatten)

バックエンドが clx だと文字化けしたので、gtk + cairo のバックエンドで。

(eval-when (:compile-toplevel :load-toplevel :execute)
  (require :mcclim)
  (require :clim-gtkairo))

(in-package :clim-user)

(define-application-frame hello-gui ()
  ()
  (:menu-bar nil)
  (:pane (make-pane 'application-pane))
  (:geometry :width 400 :height 300 :top 300 :left 500))

(run-frame-top-level
 (make-application-frame 'hello-gui
                         :pretty-name "こんにちは、GUI！"))

[ Other ] [ download code ] ]