- IGGG企画の内部勉強会
- CTFで体験してみよう!ぐらいのノリ
- 私自身もほぼ初心者というコトに注意
- 要するに楽しかったから広めたいぐらいの気持ち
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 qualified Data.Map as Map | |
import Data.List | |
import Data.Tuple | |
type PermutationGroup = [Int] | |
type Cycle = [Int] | |
type Transposition = (Int,Int) | |
type CoxeterGenerator = [Transposition] | |
main = getLine >>= putStrLn . show . solve . (map read) . words |
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
{- | |
Decode and Encode to Texts from Punched Card | |
This Program Use IBM 80-column punched card formats. | |
Bad this program has allowed any columns. | |
/ | |
|] ]]]]]]]]] | |
| ] ]]]]]]]]] | |
| ] ]]]]]]]]] | |
| ] ] ] ] |
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 Crypto where | |
import Data.List | |
import Data.Char | |
import qualified Data.Map as Map | |
rot :: Int -> [Char] -> [Char] | |
rot n s = map (rot' (['a'..'z'] ++ ['A'..'Z'])) s | |
where | |
rot' alps c |
IGGG Advent Calender 2015のために書いた記事です。
プログラミング言語Haskellを複数に分けて簡単にまとめてみました。
第2回はHaskellの基本構文についてです。
基本構文なんて、今更自分が話す必要はないのですが、以下が解ればコードを読めるので(出来るかわからないけど)今後Haskellの細かい話をするうえで便利なので、まとめておきます。
Haskellの開発環境にはいくつか種類があります。
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
function doPost(e) { | |
var prop = PropertiesService.getScriptProperties().getProperties(); | |
const DAYS = [ '12/01', '12/02', '12/03', '12/04', '12/05' | |
, '12/06', '12/07', '12/08', '12/09', '12/10' | |
, '12/11', '12/12', '12/13', '12/14', '12/15' | |
, '12/16', '12/17', '12/18', '12/19', '12/20' | |
, '12/21', '12/22', '12/23', '12/24', '12/25' | |
]; |
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 MinRuby | |
( minrubyParse | |
, minrubyLoad | |
) where | |
import Control.Applicative (empty) | |
import Data.Either (either) | |
import Data.Tree (Tree(..)) | |
import Text.Megaparsec (Parsec, Dec, parse, parseErrorPretty, some, string, space, (<|>)) | |
import Text.Megaparsec.Char (digitChar) |
OlderNewer