Skip to content

Instantly share code, notes, and snippets.

View genya0407's full-sized avatar

Yusuke Sangenya genya0407

View GitHub Profile
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]]
require 'opengl'
require 'glut'
Width = 200
Height = 200
__num = 0
#######################
##縦棒
module Main where
import Lib
main :: IO ()
main = renderMain
{-# LANGUAGE ScopedTypeVariables #-}
module Lib
( renderMain
) where
import Control.Monad.IO.Class (MonadIO(..))
import Data.Char (isAscii)
import Data.List (concat)
<!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.
#include <pic.h>
/*
* 以下のdefineについては、全て、50μsを掛けた値であると読む。
* */
/*
* N: 二分音符の音の長さ
* S: 四分音符の音の長さ
* H: 八分音符の音の長さ
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.
<!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>