So-net無料ブログ作成
前の2件 | -

BRM1006 東京1000 ええじゃないか伊勢 [ブルベ]

BRM1006 伊勢1000に参加してきました.

ほぼ往復だった去年のコースから,今年は石和発着で,杖突峠から飯田,白川,一宮と山を越えて伊勢に向かい,伊勢からは伊賀,甲賀,近江まで回って名古屋に戻り,海沿いを戻ってくるコースに変更に
なりました.(山コースの場合.海コースは逆回り).

去年の伊勢1000というと3日間ずっと大雨のブルベでしたが,今年は初日こそ強い雨が降ったものの2日目以降は良く晴れてくれました.ただ,それはその分道中の寒暖の差が大きいということで,私の場合暑さに苦労しました.
雨の中山を登るということでパールイズミのウィンタージャージを着ていって,読み通り山中はばっちりだったのですが,最終日気温が28度まで上昇すると暑さで大変でした.やむなくしまむらでTシャツを買って,ジャージを羽織る形で対応しましたが快適ではなかったです.やっぱり1000kmも走るとなると装備が難しいです.

道中の宿泊地は初日津,2日目豊川に設定しました.昨年の経験から最終日の負担を軽くしようという作戦でした.ホテル着が午前1時を過ぎてしまうのは負担でしたが,ホテルで朝食をとれる時間まで滞在することができたのは良かったと思います.

バラエティ豊かなコースで3日間楽しい時間を過ごしたのですが,1000kmのボリュームが大きすぎて,今振り返ってみると,長かったのか短かったのか,まさに夢を見ていたようなライドでした.


距離
[km]
予定
時速
予定
時刻
実際
時刻
実際
時速
クローズ
(目安)
貯金
START010/6 6:0010/6 6:0010/6 6:000.00石和健康ランド
CP1142.72010/6 13:0810/6 12:1123.0810/6 15:303.33ローソン飯田高羽町店
CP2234.22010/6 17:4210/6 18:1415.1210/6 21:363.38セブンイレブン加茂白川店
PC1288.92010/6 20:2610/6 20:5220.7710/7 1:164.40セブンイレブン一宮佐千原店
宿泊In381.92010/7 1:0510/7 1:0510/7 7:276.38ホテルルートイン津
宿泊Out381.92010/7 7:1510/7 7:1610/7 7:270.19ホテルルートイン津
CP3430.31810/7 9:5610/7 9:4910.9210/7 10:410.87ファミリーマートめおと岩店
CP4514.41810/7 14:3610/7 14:2618.2210/7 16:171.86ファミリーマート伊賀上野あかもん店
PC2561.61810/7 17:1410/7 16:5319.2710/7 19:362.72セブンイレブン野洲市役所前店
CP5628.21810/7 20:5610/7 20:3418.0810/7 23:523.31サークルK上石津枚田店
CP6681.71810/7 23:5410/7 23:2718.5510/8 3:264.00ミニストップ八熊店
宿泊In749.31810/8 3:3910/8 1:24コンフォートホテル豊川
宿泊Out749.32010/8 8:0010/8 9:12コンフォートホテル豊川
PC2835.21610/8 13:2210/8 15:0914.4410/8 18:503.68セブンイレブン御前崎比木店
CP7925.61610/8 19:0110/8 20:5415.7210/8 19:42-1.19セブンイレブン富士川松野店
Goal10031610/8 23:5110/9 1:3716.4110/9 9:307.88石和健康ランド



にほんブログ村 自転車ブログ ブルベへ
にほんブログ村
nice!(0)  コメント(0) 

AOJ 0502: Dice [Haskell]

AOJの0502 Dice.以下のような回答を作ったんだけど,Runtime ErrorでNGになる.手元の環境やIdeoneでは問題なく実行できるのに何故なんだろう?AOJのghcが7.8.4と少し古いのが気になるけど根拠なし.
-- (a,b,c,d,e,f)
--  e
--  a b c d
--  f
--  5
--  1 3 6 4
--  2

m cmd [a,b,c,d,e,f] =
  case cmd of
    "North" -> [f,b,e,d,a,c]
    "East" ->  [d,a,b,c,e,f]
    "West" ->  [b,c,d,a,e,f]
    "South" -> [e,b,f,d,c,a]
    "Right" -> [a,e,c,f,d,b]
    "Left"  -> [a,f,c,e,b,d]

ans' s _ [] = s
ans' s d (c:cs) =
  let d' = m c d
      s' = head d'
  in
    ans' (s+s') d' cs

ans [] = []
ans ("0":_) = []
ans (n:x) =
  let n' = read n :: Int
      d  = take n' x
      r  = drop n' x
  in
    (ans' 1 [1,3,6,4,5,2] d):(ans r)

main = do
  c <- getContents
  let i = lines c
      o = ans i
  mapM_ print o

タグ:Haskell AOJ
にほんブログ村 自転車ブログ ブルベへ
にほんブログ村
nice!(0)  コメント(0) 
前の2件 | -