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 M | |
import System.Random | |
import Data.List | |
import Control.Concurrent | |
width = 50 | |
height = 50 | |
type FieldMap = M.Map (Int, Int) Bool | |
coodinates = [(x,y)|y <- [1..height], x <- [1..width]] |
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
require 'opengl' | |
require 'glut' | |
Width = 200 | |
Height = 200 | |
__num = 0 | |
####################### | |
##縦棒 |
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 Lib | |
main :: IO () | |
main = renderMain |
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
{-# LANGUAGE ScopedTypeVariables #-} | |
module Lib | |
( renderMain | |
) where | |
import Control.Monad.IO.Class (MonadIO(..)) | |
import Data.Char (isAscii) | |
import Data.List (concat) |
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
<!DOCTYPE> | |
<html lang='ja'> | |
<head> | |
<title>突然の死ジェネレーター(GHCJS版)</title> | |
</head> | |
<body> | |
<textarea name="input" id="input" cols="45" rows="8" class="form-control" placeholder='突然の死'></textarea> | |
<textarea name="output" id="output" cols="45" rows="8" class="form-control"> | |
_人人人人人人_ |
Sorry, something went wrong. Reload?
Sorry, we cannot display this file.
Sorry, this file is invalid so it cannot be displayed.
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
#include <pic.h> | |
/* | |
* 以下のdefineについては、全て、50μsを掛けた値であると読む。 | |
* */ | |
/* | |
* N: 二分音符の音の長さ | |
* S: 四分音符の音の長さ | |
* H: 八分音符の音の長さ |
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
Enter file contents here#include <pic.h> | |
/* | |
* 以下のdefineについては、全て、50μsを掛けた値であると読む。 | |
* */ | |
/* | |
* N: 二分音符の音の長さ | |
* S: 四分音符の音の長さ | |
* H: 八分音符の音の長さ |
Sorry, something went wrong. Reload?
Sorry, we cannot display this file.
Sorry, this file is invalid so it cannot be displayed.
This file has been truncated, but you can view the full file.
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
<!DOCTYPE html> | |
<head> | |
<meta http-equiv="content-type" content="text/html; charset=UTF-8" /> | |
<script src="https://cdnjs.cloudflare.com/ajax/libs/leaflet/0.7.3/leaflet.js"></script> |
OlderNewer