どう書く？org 新着コメント

yugui's comment on LL Golf Hole 3 - 13日の金曜日を数え上げる

yugui — Wed, 20 Aug 2008 07:41:15 -0000

LL Golf Hole 3 - 13日の金曜日を数え上げる (Nested Flatten)

goruby版

1	p (Ti.no..Ti.gm(2013,12,31)).st(86400).ct{\|x\|x.my==13&&x.wy==5&&!p(x)}

[ Ruby ] [ download code ] ]

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

ika — Wed, 20 Aug 2008 07:40:58 -0000

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

標準入力から。

この手の文字列操作はガーベジコレクタのおかげでたやすくできます。

import std.stdio, std.string;

void main() {
    auto t = chomp(readln), s = "0".dup;
    while(s.length < t.length || s <= t) {
        writeln(s);
        
        if(s[0] < '9') {
            s[0]++;
        } else {
            s = "10" ~ s[1 .. $];
        }
    }
}

[ D ] [ download code ] ]

yugui's comment on LL Golf Hole 3 - 13日の金曜日を数え上げる

yugui — Wed, 20 Aug 2008 07:37:04 -0000

LL Golf Hole 3 - 13日の金曜日を数え上げる (Nested Flatten)

時刻が付いてしまうのはまぁ許される?

Fri Feb 13 16:31:21 +0900 2009
Fri Mar 13 16:31:21 +0900 2009
Fri Nov 13 16:31:21 +0900 2009
Fri Aug 13 16:31:21 +0900 2010
Fri May 13 16:31:21 +0900 2011
Fri Jan 13 16:31:21 +0900 2012
Fri Apr 13 16:31:21 +0900 2012
Fri Jul 13 16:31:21 +0900 2012
Fri Sep 13 16:31:21 +0900 2013
Fri Dec 13 16:31:21 +0900 2013
10

1	p (Time.now..Time.gm(2013,12,31)).step(86400).count{\|x\|x.mday==13&&x.wday==5&&!p(x)}

[ Ruby ] [ download code ] ]

まさぽん's comment on LL Golf Hole 2 - 文字列に含まれる単語の最初の文字を大文字にする

まさぽん — Wed, 20 Aug 2008 07:35:50 -0000

LL Golf Hole 2 - 文字列に含まれる単語の最初の文字を大文字にする (Nested Flatten)

戦略はいたってシンプルで、
・文字列を単語毎に分ける
・単語の頭を大文字にする
・単語をつなげる
というかんじです。

1	(def c(x)(prn:apply +(intersperse" "(map(fn(y)(=(y 0)(upcase:y 0))y)(tokens x)))))

[ Arc ] [ download code ] ]

ika's comment on LL Golf Hole 6 - 10進数を2進数に基数変換する

ika — Wed, 20 Aug 2008 07:11:58 -0000

LL Golf Hole 6 - 10進数を2進数に基数変換する (Nested Flatten)

標準入力から一行読み込んで変換。

import std.stdio, std.conv, std.string;

void main() {
    writefln("%b",to!(int)(strip(readln)));
}

[ D ] [ download code ] ]

yugui's comment on LL Golf Hole 2 - 文字列に含まれる単語の最初の文字を大文字にする

yugui — Wed, 20 Aug 2008 07:07:41 -0000

LL Golf Hole 2 - 文字列に含まれる単語の最初の文字を大文字にする (Nested Flatten)

gorubyはKernel.#gsubがないのであまり短くならない。

1	goruby -pe'$_.gsub!(/\b./){$&.up}'

[ Ruby ] [ download code ] ]

yugui's comment on LL Golf Hole 1 - tinyurl.comを使ってURLを短縮する

yugui — Wed, 20 Aug 2008 06:47:14 -0000

LL Golf Hole 1 - tinyurl.comを使ってURLを短縮する (Nested Flatten)

Cで書きたい。でも、どっちかというとこれはbash ワンライナー?

1	echo "main(){printf(\"`curl 'http.php?url=http://ll.jus.or.jp/2008/info/xgihyo'`\");}" \| (gcc -xc -;./a.out)

[ C ] [ download code ] ]

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

saitoh — Wed, 20 Aug 2008 06:19:55 -0000

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

コマンドラインで数を指定します。 int/longの範囲を超える大きな数値でもOK.数値ではなく文字列処理でやってるんで。

#include <stdio.h>

int main(int argc, char *argv[])
{
        char *p, *q;
        int len;
        len=strlen(argv[1]);
        p=malloc(len+1);
        memset(p, ' ', len);
        p[len]='\0';
        q=p+len-1;
        *q='0' -1;
        while(strcmp(argv[1], p)>0) {
                if(++(*q) >'9') {
                        *q='0';
                        *--q ='1';
                }
                puts(q);
        }
}

[ C ] [ download code ] ]

yugui's comment on LL Golf Hole 1 - tinyurl.comを使ってURLを短縮する

yugui — Wed, 20 Aug 2008 06:18:20 -0000

LL Golf Hole 1 - tinyurl.comを使ってURLを短縮する (Nested Flatten)

一応gorubyの例として

1	goruby -ropen-uri -e'pr *op("http://tinyurl.com/api-create.php?url=http://ll.jus.or.jp/2008/info/xgihyo")'

[ Ruby ] [ download code ] ]

sawat's comment on LL Golf Hole 6 - 10進数を2進数に基数変換する

sawat — Wed, 20 Aug 2008 05:34:01 -0000

LL Golf Hole 6 - 10進数を2進数に基数変換する (Nested Flatten)

Java6付属のRhinoでワンライナー。コマンドライン引数から整数を受け取る。

1	jrunscript -e "print((arguments[0]*1).toString(2))" 123

[ JavaScript ] [ download code ] ]

uzy's comment on テスト

uzy — Wed, 20 Aug 2008 04:28:17 -0000

テスト (Nested Flatten)

テスト

int main(){

    int i = 0, j = 0;
    int count=10;
    return 0;
}

[ C++ ] [ download code ] ]

hogee's comment on LL Golf Hole 6 - 10進数を2進数に基数変換する

hogee — Wed, 20 Aug 2008 03:05:44 -0000

LL Golf Hole 6 - 10進数を2進数に基数変換する (Nested Flatten)

Math::BaseCalcモジュールを使用して。
コマンドライン引数に基数(2,8,16等)、数値の順で指定します。
% perl xxx.pl 2 256
100000000
% perl xxx.pl 8 256
400
% perl xxx.pl 16 256
100
基数が2,8,10,16だったら匿名の方のようにそれぞれ%b %o %d %xを指定すればsimpleでいいですね。

1
2
3

use Math::BaseCalc;
$c=new Math::BaseCalc(digits=>[0..($ARGV[0]-1)]);
print$c->to_base($ARGV[1]);

[ Perl ] [ download code ] ]

turugina's comment on LL Golf Hole 6 - 10進数を2進数に基数変換する

turugina — Wed, 20 Aug 2008 02:01:18 -0000

LL Golf Hole 6 - 10進数を2進数に基数変換する (Nested Flatten)

短くなった。卑怯くさいけど。

#7254のコードを利用してますが、
基数だけは弄れるようにしておきました。

<stylesheet version="2.0" xmlns="http://www.w3.org/1999/XSL/Transform">
  <import href="http://tinyurl.com/58455r"/>
  <variable name="b" select="2"/>
</stylesheet>

[ XSLT ] [ download code ] ]

turugina's comment on LL Golf Hole 6 - 10進数を2進数に基数変換する

turugina — Wed, 20 Aug 2008 01:52:26 -0000

LL Golf Hole 6 - 10進数を2進数に基数変換する (Nested Flatten)

正攻法で。
冒頭の 変数b の値が基数で、2～10まで対応してます。

短くとか.. 勘弁してください

<x:stylesheet version="2.0"
  xmlns:x="http://www.w3.org/1999/XSL/Transform"
  xmlns:s="http://www.w3.org/2001/XMLSchema"
  xmlns:f="http://www.w3.org/2005/xpath-functions"
  xmlns:y="uri:ja.doukaku.org:my-functions"
  >
  <x:variable name="b" as="s:integer" select="2"/>
  <x:output method="text"/>
  <x:template match="/">
    <x:for-each select="0 to 256">
      <x:value-of select="y:f(.)"/>
      <x:text>&#xA;</x:text>
    </x:for-each>
  </x:template>
  <x:function name="y:f" as="s:string">
    <x:param name="n" as="s:integer"/>
    <x:value-of select="if ($n=0) then '0' else f:string-join(f:reverse(y:g($n)),'')"/>
  </x:function>
  <x:function name="y:g" as="s:string*">
    <x:param name="n" as="s:integer"/>
    <x:if test="$n>0">
      <x:sequence select="s:string($n mod $b)"/>
      <x:sequence select="y:g($n idiv $b)"/>
    </x:if>
  </x:function>
</x:stylesheet>

[ XSLT ] [ download code ] ]

だいら's comment on LL Golf Hole 6 - 10進数を2進数に基数変換する

だいら — Wed, 20 Aug 2008 01:47:51 -0000

LL Golf Hole 6 - 10進数を2進数に基数変換する (Nested Flatten)

変換先指定対応版

1	<?$a=split(' ',fgets(STDIN));echo base_convert($a[0],10,$a[1]>0?$a[1]:2);

[ PHP ] [ download code ] ]

だいら's comment on LL Golf Hole 6 - 10進数を2進数に基数変換する

だいら — Wed, 20 Aug 2008 01:42:36 -0000

LL Golf Hole 6 - 10進数を2進数に基数変換する (Nested Flatten)

短くする楽しみが全く無いな。

1	<?=decbin(fgets(STDIN));

[ PHP ] [ download code ] ]

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

saitoh — Wed, 20 Aug 2008 01:03:25 -0000

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

old awkです。ほぼそのままC言語のコードになっちゃいました。

#!awk -f
{
max=$1
print 0
for(b=1;;b*=10) {
        n=b
        for(j=10;--j>0;n+=b) {
                if(n>max) next
                print n
        }

}
}

[ awk ] [ download code ] ]

saitoh's comment on LL Golf Hole 6 - 10進数を2進数に基数変換する

saitoh — Wed, 20 Aug 2008 00:46:01 -0000

LL Golf Hole 6 - 10進数を2進数に基数変換する (Nested Flatten)

old　awkです。何の芸もありませんが。

#!/bin/awk -f
{
n=$1
a=n%2
while((n=int(n/2))>0)
        a= (n%2) a
print $1 "->" a

}

[ Other ] [ download code ] ]

emasaka's comment on LL Golf Hole 6 - 10進数を2進数に基数変換する

emasaka — Wed, 20 Aug 2008 00:19:09 -0000

LL Golf Hole 6 - 10進数を2進数に基数変換する (Nested Flatten)

間違い、桁が逆でした。

d=$1
while [ $d != 0 ];do
  t=$(($d%2))$t
  d=$(($d/2))
done
echo $t

[ Bash ] [ download code ] ]

genzou's comment on LL Golf Hole 6 - 10進数を2進数に基数変換する

genzou — Tue, 19 Aug 2008 22:17:36 -0000

LL Golf Hole 6 - 10進数を2進数に基数変換する (Nested Flatten)

shimakumaさんに比べると、ちょっと長いですね・・

1 2	def input = System.in.newReader().readLine() println Integer.toBinaryString(input.toInteger())

[ Groovy ] [ download code ] ]