の呟きは 63
やりたいのは
[[a,b,c]
| a<-[1..3]
, b<-[a..3]
, c<-[b..3]
]
だが
どうすりゃできるんろう(omitted)
まぁこうすりゃできなくはないんだけど
print $ comb 3
comb n = comb_ n n 1
where
comb_ n 0 s = []
comb_ n c s = [ x:ys | x <- [s..n], ys <- comb_ n (c-1) x]- (UPD ) #
こうのほうがいいか
print $ comb (1,3) 3
comb (s,e) n = comb_ e s n
where
comb_ e s 0 = []
comb_ e s c = [ x:ys | x <- [s..e], ys <- comb_ e x (c-1)]
https://projecteuler.net/problem=112
ふーむ・・・
- (UPD ) #
うーむ
流石にPEやりすぎでは
フォラム投稿が活発ではなさそうだから
まだ消えない
shower timeするか
- (UPD ) #
ボトルネック不明・・・
https://ja.wikipedia.org/wiki/%E3%83%95%E3%82%A7%E3%83%8B%E3%83%83%E3%82%AF%E6%9C%A8
newFen n = newArray (0,n) 0 :: IO (IOUArray Int Int)
lsb n = n .&. negate n
sumFen fen i =
if i == 0 then
return 0
else do
v1 <- readArray fen (i-1)
v2 <- sumFen fen (i - lsb i)
return (v1+v2)
addFen fen i v = do
(_, b) <- getBounds fen
when (i <= b) $ do
t <- readArray fen i
writeArray fen i (t+v)
addFen fen ( i + lsb (i+1) ) v
rangeFen fen i j = do
(j1, v1) <- calc fen (<=i) j 0
(_, v2) <- calc fen (<=j1) i 0
return (v1 - v2)
where
calc fen f j s =
if f j then
return (j, s)
else do
a <- readArray fen (j-1)
calc fen f (j - lsb j) (s+a)
(omitted)
- (UPD ) #
package main
import (
"fmt"
)
func lsb(i int) int {
return i & (-i)
}
type Fen []int
func (f Fen) Add(i, k int) {
for i <= len(f) {
f[i] += k
i += lsb(i)
}
}
func (f Fen) Sum(i int) (sum int) {
for i > 0 {
sum += f[i]
i -= lsb(i)
}
return
}
func main() {
fen := make(Fen, 10)
for i := 1; i <= 5; i++ {
fen.Add(i, i)
}
fmt.Println( fen.Sum(3) )
fmt.Println( fen.Sum(5) )
}点更新
範囲取得
なのかAddクエリ
Q(1): -> 1 -> 2 -> 4 -> 8 -> 16
Q(2): -> 2 -> 4 -> 8 -> 16
Q(3): -> 3 -> 4 -> 8 -> 16
Q(4): -> 4 -> 8 -> 16
Q(5): -> 5 -> 6 -> 8 -> 16
Q(6): -> 6 -> 8 -> 16
Q(7): -> 7 -> 8 -> 16
Q(8): -> 8 -> 16
Q(9): -> 9 -> 10 -> 12 -> 16
Q(10): -> 10 -> 12 -> 16
Q(11): -> 11 -> 12 -> 16
Q(12): -> 12 -> 16
Q(13): -> 13 -> 14 -> 16
Q(14): -> 14 -> 16
Q(15): -> 15 -> 16
Q(16): -> 16Sumクエリ
Q(1): -> 1
Q(2): -> 2
Q(3): -> 3 -> 2
Q(4): -> 4
Q(5): -> 5 -> 4
Q(6): -> 6 -> 4
Q(7): -> 7 -> 6 -> 4
Q(8): -> 8
Q(9): -> 9 -> 8
Q(10): -> 10 -> 8
Q(11): -> 11 -> 10 -> 8
Q(12): -> 12 -> 8
Q(13): -> 13 -> 12 -> 8
Q(14): -> 14 -> 12 -> 8
Q(15): -> 15 -> 14 -> 12 -> 8
Q(16): -> 16- (UPD ) #
これは木なのか？
よくこんな複雑なの思いつくよな・・・
アルゴリズム発明する人すげえ・・・再帰的な構造の木になってる感じなのかな
ビット操作でこんな移動するのなんて
なんで思いつくんだろうな・・・いあ、マジでまるで謎すぎる・・・
LSB操作
least-significant bit操作で
なんでこんな動きになるのか・・・
https://projecteuler.net/problem=205
ふぅ、厳しかった・・・
フォラムみたが
まぁそうだな・・・みなすごい・・・
俺がバカすぎた・・・200番台は2問目か
neru
メンタル壊れ
だるいのです
小さい失敗
小さいストレス
それが大きなストレスになる謎フォローされる
わがリスト・・・？
しっぱい
うんこバグ
display:none;はまずいのか？
うんこバグだった
URL検出自体を失敗してた
うんこすぎる
埋め込み成功した
display: none;でもいけるじゃないか
tweetしてるやつ
埋め込んでみるか？
コンパイル時間かかるー
- (UPD ) #
前回デバッグモードで抑制してたアップロード回避部分復活させないと
コミット履歴から探す・・・
https://bitbucket.org/neetsdkasu/inwardly/commits/1034eff836b73fb9e5026a45b21a99a953c5a8a9この日付指定回避部分だけ別コミットにすればよかった・・・そしたらgit revertからの編集だけですんだのに
まぁ今日テストした分は今日扱いだからアップロード発生しなかったけど
うっかりね
新規sayにしてしまった
5分後に
10月14日のと
9月8日のと無関係のだけど
10月10日のもか- (UPD ) #
検索機能に更新日選択の:update:を作っておいてよかったなあ、と
俺えらい！ 10月31日のもうｐされたが？
ああ
埋め込みテストに用いたのが
10月31日付けのやつだったか・・・
確認した
サイズでかい・・・
埋め込みのサイズって指定できたんだっけ？
あとで考える
data-width="300" 使えるぽい
イイカンジのサイズになった
data-heightのほうは全く効果なし
ツイッターリストのときしか意味ないのか
ちょい小さいか？
まだあと2分あるか
PEでも読むか・・・
https://projecteuler.net/problem=301最初の1行目しか読んでないが
nimか・・・無理ゲー苦手ジャンルの可能性ある
(omitted)
(omitted)
カジテツタイムな
微量な狂気
何かググりたかったけど
何ググったけど
何か違った
vivaldiさんクラッシュしないで・・・
