takoeight0821

We couldn’t find that file to show.

takoeight0821

{-# LANGUAGE FlexibleContexts     #-}
{-# LANGUAGE PolyKinds            #-}
{-# LANGUAGE RebindableSyntax     #-}
{-# LANGUAGE TypeOperators        #-}
{-# LANGUAGE UndecidableInstances #-}
module GIf where

import           Data.Kind
import           GHC.Generics
import           Prelude

takoeight0821

module Main where

newtype IODouble = IODouble { runIODouble :: IO Double }

instance Num IODouble where
  fromInteger x = IODouble $ do
    print x
    pure $ fromInteger x
  (IODouble x) + (IODouble y) = IODouble $ do
    x' <- x

takoeight0821

.intel_syntax noprefix
.text
not:
	ret
f:
	call not
	ret

# 以下ログ
# Stack dump:

takoeight0821

#include <stdlib.h>
#include <stdbool.h>
#include <stdio.h>
#include <gc.h>
#include <stdint.h>

struct value;

struct env
{

takoeight0821

#include <stdio.h>
#include <stdint.h>
#include <stdlib.h>
#include <gc.h>

union value;
struct env;
struct closure;
union value;

takoeight0821

const Discord = require('discord.js');

function getRandomInt(min, max) {
    min = Math.ceil(min);
    max = Math.floor(max);
    return Math.floor(Math.random() * (max - min)) + min; //The maximum is exclusive and the minimum is inclusive
}

function diceRoll(count, roll) {
    let dices = [];

takoeight0821

#include <iostream>
#include <tuple>
#include <algorithm>
#include <vector>

using namespace std;

template <typename T>
unsigned int digit_sum(T x, unsigned int base) {
  auto result = 0;

takoeight0821

#include <stdio.h>
#include <stdlib.h>
#include <string.h>

#define MAX_LEN 256

typedef struct stack {
    int *stack;
    int len;
} Stack;

takoeight0821

module AstDsl where

import Control.Monad.State
import Control.Monad.Identity
import Data.Monoid
import Control.Monad.Writer

-- こんな普通のAST定義があるとする
data Expr = Let String Expr Expr
          | Var String