Latest comments replied to turugina

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

見直してみたら
「みんな」じゃなかった(現時点で英単語識別子を使ってるのはCとJavaだけ)
ごめんなさい m(_ _)m

turugina's comment on π

π (Nested Flatten)

今更ながらfactorialのつもりのサブルーチン名がfractになってることに気が付いた。
恥さらしもいいとこだ orz...

turugina's comment on π

π (Nested Flatten)

ビジュアル的にはこっちのほうがおもしろい

use strict;
use warnings;

use bignum;

use Memoize;

sub fract
{
  my $n = shift;
  $n == 0 || $n == 1 ? 1 :
  $n * fract($n-1);
}
sub f
{
  my $n = shift;
  $n < 0 ? 0 :
  fract(2 * $n) /
  ((2 ** (4 * $n + 1)) * (fract($n) ** 2) * (2 * $n + 1)) +
  f($n-1);
}
memoize(q/fract/);
memoize(q/f/);

my $N = 1024;

print "@{[6 * f($_)]}\n" for 1 .. $N;

[ Perl ] [ download code ] ]

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

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

ご指摘ありがとうございます。修正しました。

1. ファイルの終わりまで繰り返す
1.1. 1行を読む
1.2. \tでsplitして*r=vector<string>に格納
1.3. swapで入れ替え
1.4. 1を加える
1.5. rをvector< vector<string> >に格納
2.1. 並び替え
2.2. \tをはさみながらjoinして表示

#include <iostream>
#include <string>
#include <vector>
#include <algorithm>
#include <boost/algorithm/string.hpp>
#include <boost/algorithm/string/join.hpp>
#include <boost/foreach.hpp>
#include <boost/lexical_cast.hpp>
using namespace std;
using namespace boost;
using namespace boost::algorithm;
typedef vector<string> row;

bool comp(row* lhs, row* rhs) {
    return lexical_cast<int>((*lhs)[0]) < lexical_cast<int>((*rhs)[0]);
}

int main()
{
    vector<row*> all;
    string line;
    while (getline(cin,line)) {
        row* r=new row;
        split(*r,line,is_any_of("\t"));
        swap((*r)[1],(*r)[2]);
        try { (*r)[3]=lexical_cast<string>(lexical_cast<int>((*r)[3])+1); }
        catch (const bad_lexical_cast&) {}
        all.push_back(r);
    }
    sort(all.begin()+1,all.end(),comp);
    BOOST_FOREACH(row* r, all) cout<<join(*r,"\t")<<endl;
}

[ C++ ] [ download code ] ]

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

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

しまった、これでは12の次が15(3*5)じゃなくて14(2*7)になってしまう。
反省して--self。
そして、まともに動くものを。

#include <iostream>
#include <map>

std::map<int,int> factor(int n)
{
  std::map<int, int> r;
  r[2] = r[3] = r[5] = 0;
  while ( n%2==0 ) { n/=2; ++r[2]; }
  while ( n%3==0 ) { n/=3; ++r[3]; }
  while ( n%5==0 ) { n/=5; ++r[5]; }

  if ( n != 1 ) r.clear();
  return r;
}

int main()
{
  for ( int i = 1, n = 0; n < 100; ++i ) {
    std::map<int,int> f = factor(i);

    if ( !f.empty() ) {
      std::cout << i << " = 2^" << f[2] <<
                        " * 3^" << f[3] <<
                        " * 5^" << f[5] << "\n";
      ++n;
    }
  }
  return 0;
}

[ C++ ] [ download code ] ]

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

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

#7583の匿名さんではありませんが、 IBM XL/C++では（ワーニングがでますが）コンパイル＆実行可能です。

とはいえ、環境依存のようですからその旨を書いておいたほうがよさそうですね。

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

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

同じコードを短縮してみました。 iostream.h使うとstd::省略とか、i?1:0の代わりにi==0とか、関数のvoid削除とか。意外とコンパイル出来るもんですね。改行あわせて132バイト。

#include <iostream.h>
int n;
g(int i){while(i--)cout<<"*\n"[i==0];}
f(int i){g(i);if(i!=n+1)f(i+1),g(i);}
main(){cin>>n;f(2);}

[ C++ ] [ download code ] ]

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

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

Perlにまでパーサっがあったのですね。。。
僕が妥協した時はPOSIXを使ったべた書きでした。
# ほとんどCとかわりません(笑

#!/usr/bin/env perl
use strict;
use POSIX qw/strftime mktime/;

sub DateEx($$)
{
        my $outDate = '';
        my @t = ($_[0] =~ m/(\d{4})(\d{2})(\d{2})(\d{2})(\d{2})(\d{2})/);

        $t[0] -= 1900; $t[1] -= 1; @t = reverse @t;
        $t[0] += $_[1];
        mktime( @t );
        return strftime("%Y%m%d%H%M%S", @t);
}

print DateEx("20080827235925",40) . "\n";

__END__
#EOF

[ Perl ] [ download code ] ]

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

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

条件2を満たしてなかった。ので、修正。

<xsl:stylesheet version="2.0"
  xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
  xmlns:xs="http://www.w3.org/2001/XMLSchema"
  xmlns:fn="http://www.w3.org/2005/xpath-functions"
  xmlns:my="uri:ja.doukaku.org:my-functions"
  exclude-result-prefixes="my"
  >

  <xsl:output method="text" />

  <xsl:template match="/" >
    <xsl:value-of select="my:DateEx('2008-09-01T10:02:38', -1)"/>
  </xsl:template>

  <xsl:function name="my:DateEx" as="xs:string">
    <xsl:param name="dstr" as="xs:string" />
    <xsl:param name="sec" as="xs:integer" />

    <xsl:sequence select="xs:string(
      xs:dateTime($dstr) +
      xs:dayTimeDuration(
        fn:concat(
          (if($sec&lt;0)then'-'else''),
          'PT', xs:string(fn:abs($sec)), 'S'
          )
        )
      )" />
  </xsl:function>

</xsl:stylesheet>

[ XSLT ] [ download code ] ]

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

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

しまった、お題は「関数を作れ」だった。

use strict;
use warnings;

use DateTime;
use DateTime::Format::DateParse;

print DateEx(@ARGV),$/;

sub DateEx
{
  (@_>=2 ? DateTime::Format::DateParse->parse_datetime(shift)
         : DateTime->now(time_zone => q{Asia/Tokyo}))
  ->add(seconds => shift||0)->iso8601;
}

[ Perl ] [ download code ] ]

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

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

#7389 からヒントをいただいて 1byte 削り。 46

1	print'*'x$_."\n"for 1..($n=<>),reverse 1..$n-1

[ Perl ] [ download code ] ]

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

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

-p を使ってもう1byte削れた. おまけでv5.10じゃなくても大丈夫に

perl -MNumber::Bytes::Human=format_bytes -ple'$_=format_bytes$_’

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

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

#7312と同じ考えでC++で。入力は標準入力。
133bytes。実質132bytes

1
2
3

#include <iostream>
char*p=" \bKiMiGiTiPiEiZiYi";
main(){double n;std::cin>>n;for(;1024<n;p+=2)n/=1024;std::cout<<n<<*p<<p[1]<<"B";}

[ C++ ] [ download code ] ]

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

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 5 - 最上位の桁を数え上げる

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

別関数に分けずにベタでmain内に書いたほうがよっぽど短かった orz
というわけで元コードは自分で-1.
116btyes.実質109bytes

#include<iostream>
main(){
  int c=0,d=1,n;std::cin>>n;
  while(c<=n)std::cout<<c<<"\n"&&(c+=d)&&c/d/10&&(d*=10);
}

[ C++ ] [ download code ] ]

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

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

しまった。もう2bytes短くできた。

1
2
3

use Date::Simple':all';
for($t=today;$t++<d8"20131231";)
{print"$t\n"if$t->day_of_week*$t->day==65}

[ Perl ] [ download code ] ]

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

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

おおう！あれ？でも、tinyurlを二回使おうとすると変なことに。

と思いつつ、http's':// の https://tinyurl.com/api-create.php?url=http://ll.jus.or.jp/2 008/info/xgihyo を圧縮した http://tinyurl.com/6hyq2m でアクセスしてみたら・・・キター（笑

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

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

もっと短くなりました。 :D

perl -MLWP::Simple -E 'say get "http://easyurl.jp/edz"'

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

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

TinyURL APIとな！？

1	ruby -ropen-uri -e "puts open('http://tinyurl.com/api-create.php?url=http://ll.jus.or.jp/2008/info/xgihyo').read"

[ Ruby ] [ download code ] ]

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

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

回答例が異様に長くてすみません〜。趣旨のご理解ありがとうございます。

まさにそういう感じのコードを待ってました！ありがとうございます！