Latest comments for language 'JavaScript' on doukaku.org

sawat's comment on 疑似並行処理

print関数の定義を忘れました。以下のような関数があるものとしてください。

var outputarea;
function print(s) {
  if(!outputarea) {
    outputarea = document.createElement("p");
    document.body.appendChild(outputarea);
  }
  outputarea.innerHTML += s;
}
// あるいは
function print(s) {
  console.log(s); // 要firebug
}

[ JavaScript ] [ download code ] ]

sawat's comment on 疑似並行処理

疑似並行処理 (Nested Flatten)

javascript 1.7 の yield で疑似並列。

function create_loop(data) {
    for(var i=0,n=data.length;i<n;i++) {
      print(data[i]);
      yield true;
    }
    yield false;
}
var f1 = create_loop([1,2,3,4,5,6,7,8,9,10]);
var f2 = create_loop(['a','b','c','d','e','f','g','h','i','j']);
while(f1.next() & f2.next());

[ JavaScript ] [ download code ] ]

匿名's comment on 疑似並行処理

疑似並行処理 (Nested Flatten)

import System;
import System.Threading;

class Sample {
    static function Main()
    {
        var t = new Sample();
        t.doIt();
    }

    function doIt(){
        var t1 = new Thread(numPrint);
        var t2 = new Thread(charPrint);
        t1.Start();
        t2.Start();
    }

    function numPrint(){
        for(var i=0;i<10;i++){
            print(i+1);
        }
    }
    function charPrint(){
        var data = "abcdefghij"
        for(var i=0;i<10;i++){
            print(data.charAt(i));
        }
    }
}

Sample.Main();

[ JavaScript ] [ download code ] ]

sawat's comment on 疑似並行処理

疑似並行処理 (Nested Flatten)

シンプルにsetIntervalで疑似並列にしてみました。

var outputarea;
function print(s) {
  if(!outputarea) {
    outputarea = document.createElement("p");
    document.body.appendChild(outputarea);
  }
  outputarea.innerHTML += s;
}
function f(data, interval) {
  var timer = setInterval(function() {
    if(data && data.length > 0) {
      print(data.shift());
    } else {
      clearInterval(timer);
    }
  }, interval);
}
var data_list = [
  [1,2,3,4,5,6,7,8,9],
  "abcdefghij".split("")
];
for(var i=0;i<data_list.length;i++) {
  f(data_list[i], 100);
}

[ JavaScript ] [ download code ] ]

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

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

C:\>type emp.txt
ID      Surname Forename        Age
1       Sato    Hanako  17
0       Suzuki  Taro    18

C:\>cscript /nologo csv.js < emp.txt
ID      Forename        Surname Age
0       Taro    Suzuki  19
1       Hanako  Sato    18

Array.prototype.each = function(iterator){
  for(var i=0, length=this.length; i<length; i++) iterator(this[i],i);
}

var table = [];
WScript.StdIn.ReadAll().split('\r\n').each(function(line){
  if(!line.match(/^\s*$/)) table.push(line.split('\t'));
});
var header = table.shift();

//第1カラムの値でデータを昇順にソートする
table.sort(function(a,b){return a[0]-b[0];});
//第4カラムの値にそれぞれ1を加える
table.each(function(row){row[3]=row[3]*1+1;});
//第2カラムと第3カラムをヘッダを含めて入れ替える
table.unshift(header);
table.each(function(row){
  WScript.StdOut.WriteLine([row[0],row[2],row[1],row[3]].join('\t'));
});

[ JavaScript ] [ download code ] ]

匿名's comment on 漢数字で九九の表

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

forEash を使わないバージョン

var k=["○", "一", "二", "三", "四", "五", "六", "七", "八", "九"];
var size=k.length;
var step=null;
var l;

while(++step<(l=size)){
    var out_line = "";
    var over = null;
    for(var pos=step;--l;pos+=step){
        if(pos>=size){
            over++;
            pos -= size;
        }
        out_line += (over ? k[over] : "") + k[pos] + "\t";
    }
    print(out_line);
}

[ JavaScript ] [ download code ] ]

匿名's comment on 漢数字で九九の表

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

同じですけど、kn を消したバージョン

["○", "一", "二", "三", "四", "五", "六", "七", "八", "九"].forEach(function(x, xi, a){
    if(!xi)return;
    var out_line="";
    a.forEach(function(y, yi){
        if(!yi)return;
        var v = xi*yi;
        out_line += v.toString().replace(/\d/g, function(m){return a[m]}) + "\t";
    });
    print(out_line);
});

[ JavaScript ] [ download code ] ]

匿名's comment on 漢数字で九九の表

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

すみません、大ボケしてました。
訂正します。

var kn = ["○", "一", "二", "三", "四", "五", "六", "七", "八", "九"];

kn.forEach(function(x, xi, a){
    if(!xi)return;
    var out_line="";
    kn.forEach(function(y, yi){
        if(!yi)return;
        var v = xi*yi;
        out_line += v.toString().replace(/\d/g, function(m){return a[m]}) + "\t";
    });
    print(out_line);
});

[ JavaScript ] [ download code ] ]

匿名's comment on 漢数字で九九の表

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

var kanjinum = ["○", "一", "二", "三", "四", "五", "六", "七", "八", "九"];

for(var x=1;x<10;x++){
    var out_line="";
    for(var y=1;y<10;y++){
        var wk = x*y;
        out_line += wk.toString().replace(/(\d)/g, function($1){ return kanjinum[$1] }) + "\t";
    }
    print(out_line);
}

[ JavaScript ] [ download code ] ]

nobusuke_neko's comment on 比較しないソートの作成

比較しないソートの作成 (Nested Flatten)

バケツソート。無理矢理感有り。
JScript(WSH)。

-------------------------------
C:\temp>cscript /nologo bucketsort.js
-1 2 3 4 5 6 8 9 9 9

function bucketsort(data,min,max,size){
  var result=[];
  eval( data.replace(/(-?\d+)/g,'result[$1-min]+=",$1,";') );
  return result.join('').split(/[^0-9-]+/).join(' ');
}

WScript.Echo(bucketsort('-1 9 4 8 9 6 3 9 5 2','-1','10','10'));

[ JavaScript ] [ download code ] ]

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

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

//[1, [3, 6], 12, 13, [15, 25, 5], 26, 27] <=
//compact_number_list([1, 3, 4, 5, 6, 12, 13, 15, 20, 25, 26, 27])

function compact_number_list(anArray){
    var len = anArray.length;
    var result = new Array();

    for(var i=0;i<len;i++){
        var seq;
        if(seq=isSequence(anArray[i], i, anArray)){
            result.push(seq);
            i += (seq[2])? (seq[1]-seq[0])/seq[2] : seq[1]-seq[0];
        } else {
            result.push(anArray[i]);
        }
    }
    return result;
}
function isSequence(el, index, array){
    var next=array[index+1];
    if(next == undefined){ return false; }

    var d = next - el;
    for(var i=0;array[index + i] == el + i * d;i++);

    if(i>2){
        return (d==1) ? [el, array[index + i -1]] : [el, array[index + i -1], d];
    } else {
        return false;
    }
}

[ JavaScript ] [ download code ] ]

nobusuke_neko's comment on Tiny MML

Tiny MML (Nested Flatten)

ADODB.Streamでsmfを吐いて、関連付けされたプレイヤーで再生。「音を鳴らすプログラム」・・・ではない。

-----------------------------------
C:\temp>cscript /nologo tinymml.js cdefedcrefgagfercrcrcrcrcdefedcr

function arrayToFile(filename, array){
  var stream = WScript.CreateObject('ADODB.Stream');
  stream.Charset = 'iso-8859-1';
  stream.Open();
  for (var i=0; i < array.length; i++)
    stream.WriteText(String.fromCharCode(array[i]));
  stream.SaveToFile(filename, 2);
  stream.Close();
}

var note = {r:0,c:60,d:62,e:64,f:65,g:67,a:69,b:71};
var body = [];
WScript.Arguments.Item(0).toLowerCase().replace(/([a-gr])/g, function(n){
  body = body.concat([0,144,note[n],n=='r'?0:90,24,144,note[n],0]);});
var size = body.length + 4;
head = [77,84,104,100,0,0,0,6,0,0,0,1,0,48,77,84,114,107,
        size>>24&0xff, size>>16&0xff, size>>8&0xff, size&0xff];
arrayToFile('sample.mid', head.concat(body.concat([0,255,47,0])));
WScript.CreateObject('WScript.Shell').run('sample.mid');

[ JavaScript ] [ download code ] ]

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

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

Javascript@Firebug。 n2,n3,n5の最大値は試行錯誤で決めてます

var o={};
for(var n2=0; n2<=11; n2++)
  for(var n3=0; n3<=8; n3++)
    for(var n5=0; n5<=7; n5++)
      o[Math.pow(2,n2)*Math.pow(3,n3)*Math.pow(5,n5)] = [n2,n3,n5];
for(var i=0,c=0;c<100;i++)
  if(o[i]!=null)
    console.debug(++c, ". ", i, "= 2^", o[i][0], " + 3^", o[i][1], " + 5^", o[i][2]);

[ JavaScript ] [ download code ] ]

nobusuke_neko's comment on コラッツ・角谷の問題

コラッツ・角谷の問題 (Nested Flatten)

n = 1..2^k の範囲で最大ステップ求める場合は、
2^k-1..2^k 間だけ調べることにしました。
後はいたって普通というか、回りくどいというか。
CeleronM1.8GHz, Memory1GB, WindowsXP, WSH(JScript)
--------------------
C:\temp>cscript //nologo collatz.js
f( 837799 ) = 524
time = 29578ms

function steps(n){
  var step = 0;
  for(;n!=1; step++)
    n = (n&1) ? n*3+1 : n/2;
  return step;
}
function maxim(lim){
  var result = 0;
  var step = 0;
  for(var i=(lim&(lim-1))?1:lim/2; i<=lim; i++){
    var temp = steps(i);
    if(temp > step) { step=temp; result=i; }
  }
  return result;
}

var tm = (new Date).getTime();
var n = maxim(Math.pow(2,20));
var s = steps(n);
WScript.Echo('f( '+n+' ) = '+s);
WScript.Echo('time = '+((new Date).getTime()-tm) + 'ms');

[ JavaScript ] [ download code ] ]

nobusuke_neko's comment on LL Golf Hole 7 - バイト数を読みやすくする

LL Golf Hole 7 - バイト数を読みやすくする (Nested Flatten)

極めて強引に。

(function(x){
  alert(eval(
    '[x'+'kMGTPEZY'.replace(/(.)/g,
    ',0|(x/=1024)?x.toFixed(2)+"$1":"z"')+'].sort()'
  )[0]);
})(123456789012345)

[ JavaScript ] [ download code ] ]

syat's comment on LL Golf Hole 9 - トラックバックを打つ

LL Golf Hole 9 - トラックバックを打つ (Nested Flatten)

JavaScript＠Firebugコンソールで。
本エントリにも打ってみたけどカップインしたのかわからない・・・。
打ちっ放し場のほうには行けました。

function x(o,a){for(var k in a)o[k]=a[k]; return o;}
var f=x(document.createElement('form'),{action:'http://d.hatena.ne.jp/takano32/20080905',method:'POST'});
var d={
  title:'どう書くのお題で打ってみます！',
  excerpt:'だれかにぶつけたらごめんね！',
  url:'http://ja.doukaku.org/207/#orz',
  blog_name:'LL Golf Hole 9'
}
for(var k in d)
  f.appendChild(x(document.createElement('input'),{type:'hidden',name:k,value:d[k]}));
document.body.appendChild(f);
f.submit();

[ JavaScript ] [ download code ] ]

syat's comment on 文字列型日時ののN秒後時間取得

文字列型日時ののN秒後時間取得 (Nested Flatten)

JavaScriptのパーサを使用。Firebugで確認。
出力形式にあわせるとこんな入力になった。
toLocaleStringメソッドを使えば"2008年9月2日 8:50:34"のように出力するが、パーサが解釈してくれない。
>>> DateEx('Tue Sep 02 2008 8:30:00',1234)
"Tue Sep 02 2008 08:50:34 GMT+0900"

1	function DateEx(t,s) new Date(Date.parse(t)+s*1000).toString();

[ JavaScript ] [ download code ] ]

hirataka's comment on LL Golf Hole 5 - 最上位の桁を数え上げる

LL Golf Hole 5 - 最上位の桁を数え上げる (Nested Flatten)

コンパイル時に /fast- を指定してください。

1	for(i=-1;i++<300;)/^.0*$/.test(i)&&print(i)

[ JavaScript ] [ download code ] ]

silverwire's comment on LL Golf Hole 8 - 横向きのピラミッドを作る

LL Golf Hole 8 - 横向きのピラミッドを作る (Nested Flatten)

ワンライナーで。半角空白を除くと 110バイトになります。

# 先頭に 'javascript:'という文字列を追加して、ブラウザのアドレスバーに貼り付けて
# ください。

1	(function (n) { var i = n, s = t = ''; for ( ; i--; ) s += '*'; for (i = -n; i < n; i++) t += s.substr(0, n - Math.abs(i)) + '\n'; alert(t); })(4)

[ JavaScript ] [ download code ] ]

matyr's comment on LL Golf Hole 8 - 横向きのピラミッドを作る

LL Golf Hole 8 - 横向きのピラミッドを作る (Nested Flatten)

68B。

1	for(i=n=readline();--i>-n;print(o))for(o='',j=i<0?-i:i;j++<n;)o+='*'

[ JavaScript ] [ download code ] ]