Skip to content

Instantly share code, notes, and snippets.

@cielavenir
cielavenir / 470_challenge1.in
Created December 19, 2016 16:01
470 challenge
52
bab
cac
dad
eae
faf
gag
hah
iai
jaj
#!/usr/bin/env runghc
-- http://mtsmfm.github.io/2016/12/03/doukaku-e10.html
-- http://qiita.com/mtsmfm/items/8a78b895910a89e3012d
import System.IO (isEOF,hFlush,stdout)
rec x o l ('X':xs) = rec (x+1) (o+l) 0 xs
rec x o l ('O':xs) = rec x o (l+1) xs
rec x o l [] = ((2^l)-1)*4*2^o + case x of
0 -> 0
1 -> 5+(if o==0 then 0 else 5^o)
@cielavenir
cielavenir / e09_mod.rb
Created November 15, 2016 07:55
五角形の世界であなたは過去の自分に出会う ref: http://qiita.com/cielavenir/items/6c57c977836947899dc2
=begin
T=[
[[0,0,1,1],[0,0,3,0],[0,-1,2,2],[0,-1,1,4],[1,0,3,3]],
[[0,0,2,1],[0,0,0,0],[1,0,3,2],[1,0,2,4],[0,1,0,3]],
[[0,0,3,1],[0,0,1,0],[0,1,0,2],[0,1,3,4],[-1,0,1,3]],
[[0,0,0,1],[0,0,2,0],[-1,0,1,2],[-1,0,0,4],[0,-1,2,3]],
]
=end
D=[[0,-1],[1,0],[0,1],[-1,0]]
T=4.times.map{|i|
#!/usr/bin/env ruby
#http://mtsmfm.github.io/2016/10/01/doukaku-e08.html
#http://qiita.com/mtsmfm/items/94ebd353fa3b7e608f68
H=W=19
while gets
# 要素が0..18の数値2つ(x座標,y座標)からなる配列
a=$_.chomp.split(',').map{|e|e.scan(/[a-z]\d+/).map{|f|[f[0].ord-97,f[1..-1].to_i-1]}.sort}
h=a.map{|e|Hash[*e.flat_map{|(x,y)|[x+y*W,1]}]}
puts 2.times.map{|i|
@cielavenir
cielavenir / tyama_codeiq2972_async.cpp
Last active December 11, 2016 18:07
十文字に反転して色を揃えて!(std::async) ref: http://qiita.com/cielavenir/items/61b329936ef6508a5938
// async
// 5 5: 0.08s
// 3 9: 1.47s
// 5 6: 15.53s
// 4 8: 83.18s
// 6 6: 772.15s
#include <vector>
#include <algorithm>
#include <future>
@cielavenir
cielavenir / tyama_hena28_fast.ps1
Last active May 7, 2018 16:37
十字の壁がそそり立つ世界の中を君は螺旋状に歩く (規則性、PowerShell) ref: https://qiita.com/cielavenir/items/d9ef9f12068e99e888f2
#!/usr/bin/env powershell
#http://qiita.com/Nabetani/items/23ebddb44f0234e7fb15
#http://nabetani.sakura.ne.jp/hena/ord28spirwa/
$dir="ESWN"
while(1){
$line=[Console]::ReadLine()
if($line.length -eq 0){break}
$a=$line.Split(":")
$b=$a[0].Split(",")
@cielavenir
cielavenir / tyama_codeiq2972.cpp
Last active December 11, 2016 18:06
十文字に反転して色を揃えて!(single/OpenMP) ref: http://qiita.com/cielavenir/items/2fa1f1149132de579a46
// single(tlstをメモ化する前の計測なので時間多めですが、大した差ではないはず)
// 5 5: 12 0.72s
// 3 9: 21 9.72s
// 5 6: 23 100.38s
// 4 8: 22 396.15s
// 6 6: 22 5996.84s
// openmp
// 5 5: 0.06s
// 3 9: 0.83s
patch :p0 do
url 'https://raw.githubusercontent.com/cielavenir/homebrew-ciel/master/patch/io.patch'
sha256 '62489be25589fff7e25c0f82775a36950d36c1ff691a07cb2ba85efc497e62dd'
end
@cielavenir
cielavenir / # arpack - 2016-09-22_01-24-43.txt
Created September 21, 2016 17:02
arpack (homebrew/science/arpack) on macOS 10.12 - Homebrew build logs
Homebrew build logs for homebrew/science/arpack on macOS 10.12
Build date: 2016-09-22 01:24:43
@cielavenir
cielavenir / # arpack - 2016-09-22_01-24-43.txt
Created September 21, 2016 16:53
arpack (homebrew/science/arpack) on macOS 10.12 - Homebrew build logs
Homebrew build logs for homebrew/science/arpack on macOS 10.12
Build date: 2016-09-22 01:24:43