notogawa

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 [] = []

VoQn

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 

matsumotius

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|

futoase

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　公式(ゼニアジ)日本語ファイル使用　版

sugyan

"^                                 "
=~                                 (
("(").("~"^"."^"^"^(""=="")."").("^"
^"="^(""=="").""^")").("^"^".").("="
^"~"^(""=="")."").("("^(""=="^").""^
"."^"^").("("^(""=="").""^"^"^")").(
("                  ^(             "
                    ==             "
                    ")             .
                    ""             ^