Hatena::Grouprubyist

たばさの RSSフィード

02/28(木) 2008

飛ばし飛ばし はやりもの

| 飛ばし飛ばし はやりもの - たばさの を含むブックマーク はてなブックマーク - 飛ばし飛ばし はやりもの - たばさの

http://www.tanzaku.org/dot/0/56c180ee6cc1ae93c4f6c3800be35eef.png

http://www.tanzaku.org/dot/0/bc8dacfb50c408216ac3ca50ec869018.png

http://www.tanzaku.org/dot/107


no title

#euler78-up.rb

def prline b
#return
  o="O"
  i=" "
  print"#{$pt}:"
  b.each{|j|
    print o*j
    print i
  }
  puts
end

def pr(x,b)
  ($pt+=1;prline b;return) if x==0
  st=0
  if b==[]
    st=x
  else
    st=b[-1]
    st=x if st>x
  end
  st.downto(1){|i|
    #b<<i
    #p b
    pr(x-i,b+[i])
  }
end

n=gets.to_i
1.upto(n){|i|
  $pt=0
  pr(i,[])
  puts "p(#{i})=#{$pt}\n\n"
}

おそい

これだと何年かかるかっていう。

組み合わせとかか。


解くと掲示板が見れる。「超簡単だぜ+[ソースを見る]」などなど。

でも解いた人しか見れない。

計算だけやってくれるサーバーないかな

計算だけやってくれるサーバーないかな - たばさの を含むブックマーク はてなブックマーク - 計算だけやってくれるサーバーないかな - たばさの

うえのように長い計算やってると他のが動かなくなる。1時間回しっぱなしとか。結果だけメールで?

上の絵は間違った

上の絵は間違った - たばさの を含むブックマーク はてなブックマーク - 上の絵は間違った - たばさの

てきとー

http://www.tanzaku.org/dot/0/1aea6052c74e1ac6992009baeb46f4eb.png

直した。

切り分ける、というのを積み上げる(同じ数以下しか積めない)と変えて書いた。

はてなハイクでやったら小丸が書きにくいので短冊ドットにしてみた。

斜めになったせいでちょうど左右対称に。半分まで計算すればいいということか。

(やっぱり順列組み合わせでやるんだろうというのは置いといて)

ちがうな。

斜め表示バージョン

| 斜め表示バージョン - たばさの を含むブックマーク はてなブックマーク - 斜め表示バージョン - たばさの

問題を解く方向には行ってませんが。あきらめモードで。


        O               
       O O             
      O O O           
     O O O O         
    O O O   O       
   O   O     O     
  O           O   
               O 
                

      O         
     O O       
    O O O     
   O O O O   
  O O O O O 
 O     O O 
O       O 

      O           
     O O         
    O O O       
   O O O O     
  O O O O O   
 O     O O O 
O           

no title

#euler78-up.rb
def max b
  n=-1
  a=b.map{|d|n+=1;d+n}+[b.size+1]
  m=a.max
  m
end

def sum d
# p d
  eval(d*"+")
end

def prline b
#return
  o="O"
  i=" "
 # p b
  # puts"#{$pt}:"
  mx=sum(b)
  1.upto(max(b)){|x|
    print i*(mx-x) if mx>x
    b.size.times{|y|
      if b[y]+y>=x && y<=x-1
        print o 
      else
        print i
      end
      print i
      #puts "#{b[y]},#{x+y}"
    }
    puts
  }
  puts
end

def pr(x,b)
  ($pt+=1;prline b;return) if x==0
  st=0
  if b==[]
    st=x
  else
    st=b[-1]
    st=x if st>x
  end
  st.downto(1){|i|
    #b<<i
    #p b
    pr(x-i,b+[i])
  }
end

puts"from,to"
fr=gets.to_i
n=gets.to_i
fr.upto(n){|i|
  $pt=0
  pr(i,[])
  puts "p(#{i})=#{$pt}\n\n"
}

25 Enter 25 Enter など


やっぱり下向きじゃないと落ち着かない

#euler78-up.rb
def max b
  n=-1
  a=b.map{|d|n+=1;d+n}+[b.size+1]
  m=a.max
  m
end

def sum d
# p d
  eval(d*"+")
end

def prline b
#return
  o="O"
  i=" "
 # p b
  # puts"#{$pt}:"
  mx=sum(b)
  max(b).downto(1){|x|
    print i*(mx-x) if mx>x
    b.size.times{|y|
      if b[y]+y>=x && y<=x-1
        print o 
      else
        print i
      end
      print i
      #puts "#{b[y]},#{x+y}"
    }
    puts
  }
  puts
end

def pr(x,b)
  ($pt+=1;prline b;return) if x==0
  st=0
  if b==[]
    st=x
  else
    st=b[-1]
    st=x if st>x
  end
  st.downto(1){|i|
    #b<<i
    #p b
    pr(x-i,b+[i])
  }
end

puts"from,to"
fr=gets.to_i
n=gets.to_i
fr.upto(n){|i|
  $pt=0
  pr(i,[])
  puts "p(#{i})=#{$pt}\n\n"
}

メールでサイトをメモ

| メールでサイトをメモ - たばさの を含むブックマーク はてなブックマーク - メールでサイトをメモ - たばさの

作ったもの。メール本文でhtmlを送るだけ。

http://taba.s3.zmx.jp/cachemail.htm

`cat tmp.txt|mail -s"title" aaa@hoge`

みたいな感じ。散歩中に消えそうなサイトを見つけたときとか。ないか。

javascript:window.location='http://taba.s3.zmx.jp/cachemail.cgi?'+'uri='+escape(location.href)+'&mailto=aaa@hoge&subject=cache&wait=3';

などと。


追記

そのあとwait秒後にはてブに追加するようにした(2008/03/02)

トラックバック - http://rubyist.g.hatena.ne.jp/hatecha/20080228
カレンダー
<< 2008/02 >>
1 2
3 4 5 6 7 8 9
10 11 12 13 14 15 16
17 18 19 20 21 22 23
24 25 26 27 28 29
archive Error : RSSが取得できませんでした。