This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
"^ " | |
=~ ( | |
("(").("~"^"."^"^"^(""=="")."").("^" | |
^"="^(""=="").""^")").("^"^".").("=" | |
^"~"^(""=="")."").("("^(""=="^").""^ | |
"."^"^").("("^(""=="").""^"^"^")").( | |
(" ^( " | |
== " | |
") . | |
"" ^ |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
http://www.dotup.org/uploda/www.dotup.org2357777.txt から入手。 | |
入手のきっかけは2ch PCゲーム板のSKYRIMスレより | |
(http://yuzuru.2ch.net/test/read.cgi/game/1323307978/4) | |
//----------------------------------------------------------------------------- | |
Skyrim英語ver1.3のexeで日本語字幕・日本語音声にする方法 | |
(日本語版exeと一部ファイルががクソで致命的バグが発声するため) | |
2011/12/8 公式(ゼニアジ)日本語ファイル使用 版 |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
def eight_queen(n = 8, m = 8) | |
run(n, m, []) | |
end | |
def run(kinds, len, a) | |
return unless can_set_queen?(a) | |
if len == 0 then | |
puts a.join(',') | |
else | |
kinds.times { |i| |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
import Control.Applicative hiding ( (<|>) ) | |
import Text.Parsec | |
-- parse like ruby's String.strip | |
escSpace parser = spaces *> parser <* spaces | |
-- parse like "between" in Text.Parsec | |
close opener parser closer = char opener *> escSpace parser <* char closer | |
-- Example |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
module Main where | |
import Data.List(sortBy) | |
import Data.Ord(comparing) | |
main :: IO () | |
main = interact $ unlines . take 1 . map (show . uncurry enumFromTo) . zzubzzif . lines | |
zzubzzif :: [String] -> [(Int,Int)] | |
zzubzzif [] = [] |