dekosuke

初の600ブルベ（完走, 34:29）

概要

ウニ丼争奪100kmレース（滝川→羽幌）と残りの500km（羽幌→滝川）に大きく分かれる。前者は最速トレインにただ乗りし、後者は前者の後遺症で全体的に低出力だった。 思ったより遙かに過酷だった。体のいろんなところが痛くなる。あと多少メカトラもあった（etrex 30のアタッチメントが壊れ、スマホのみに）。 340km地点でリアディレイラーが壊れて立ち往生している人を見た。

タイムライン

• pc1 80km 留萌鬼鹿
• オープン前に到着した（爆） トップ二番手ぐらいの集団についていったけど最初100kmを33.8km/h,170Wでブルベトップの実力を垣間見た。ちなみにこの区間ぼくはスタート直後の一瞬を除いて牽いていないが、半分ぐらいは同じ人が牽いていた（どういうことなの・・・）。PC1オープン待ちで先に到着していたトップ２人と合流してトップになった。そして100km地点の北のにしんやさん（ウニ丼）で離脱（本当はその少し前のココ・カピウが混んでたので方針転換） 北のにしんやさんも開店前到着だった。この区間までで足が死亡、残りは500km低出力モードに

dekosuke

#!/usr/bin/env python
# coding:utf-8

population = 1000
num_round = 10000

mode = 1 #1: current 2:proposed 

ranks = ["C-","C", "C+", "B-", "B", "B+", "A-", "A", "A+", "S", "S+"]
if mode==1:

dekosuke

#!/usr/bin/env python
# coding:utf-8

population = 10000
num_round = 10000

ranks = ["C-","C", "C+", "B-", "B", "B+", "A-", "A", "A+", "S", "S+"]
reward_win  = [20, 15, 12, 12, 10, 10, 10, 10, 10, 5, 3]
reward_lose = [10, 10, 10, 10, 10, 10, 10, 10, 10, 5, 6]
num_ranks = len(ranks)

dekosuke

{-# LANGUAGE OverloadedStrings,ScopedTypeVariables #-}

import Data.Text (Text)
import qualified Data.Text as T
import Data.Bits (xor, shiftL, shiftR, (.&.))
import Data.List (transpose, find, sortBy)
import System.Random
import Control.Applicative
import Test.HUnit (Assertion(..), Counts(..), Test(..), assertEqual,
                    assertBool, assertFailure, runTestTT)

dekosuke

savazusi ' ' = ' '
savazusi 'a' = 'y'
savazusi 'b' = 'h'
savazusi 'c' = 'e'
savazusi 'd' = 's'
savazusi 'e' = 'o'
savazusi 'f' = 'c'
savazusi 'g' = 'v'
savazusi 'h' = 'x'
savazusi 'i' = 'd'

dekosuke

#include <iostream>

template<int N> struct Haco{
  enum { val=Haco<N-1>::val+N };
};

template<> struct Haco<0> {
  enum { val = 0 };
};

dekosuke

import Data.List
import Data.Int
import Data.Char

type Z = Int

myMapReadWords :: String -> [Z]
myMapReadWords ('1':'0':' ':rest) = 10 : myMapReadWords rest
myMapReadWords ('1':'0':[]) = 10 : []
myMapReadWords (a:' ':rest) = digitToInt a : myMapReadWords rest

dekosuke

<?php
function mkPerms($temp, $alphabet, $depth){
  if($depth==0){ return array($temp); }
  else{
    $ret = array();
    foreach($alphabet as $a){
      $ret = array_merge($ret, mkPerms($temp.$a, $alphabet, $depth-1));
    }
    return $ret;
  }

dekosuke

import Data.Array.Repa ( Array, DIM2, DIM3, Z(..), (:.)(..) )
import qualified Data.Array.Repa          as R
import qualified Data.Array.Repa.IO.DevIL as D
import Data.Word  ( Word8   )
import Data.Fixed ( divMod' )
import Debug.Trace

import qualified Data.Map as M
import qualified Data.Vector.Unboxed as UV

dekosuke

import Data.Array.Repa ( Array, DIM2, DIM3, Z(..), (:.)(..) )
import qualified Data.Array.Repa          as R
import qualified Data.Array.Repa.IO.DevIL as D
import Data.Word  ( Word8   )
import Data.Fixed ( divMod' )
import Debug.Trace

import qualified Data.Map as M
import qualified Data.Vector.Unboxed as UV