zakky-dev

class Class(T) {
  private bool[string] methods;

  this() {
    initialize();
  }

  void initialize() {
    foreach(member; __traits(derivedMembers, T)) {
      if(__traits(isVirtualFunction, mixin("T." ~ member))) {

zakky-dev

import std.stdio;

mixin template Foo() {
  void show() {
    this.member.writeln;
  }
}

class Bar {
  mixin Foo;

zakky-dev

import std.stdio;

enum udaprop = "udaprop";

class UDATest {
  @udaprop private int intProperty;
  @udaprop private string stringProperty;
  private float floatProperty;
}

zakky-dev

import std.stdio;

class Test {
  private string _value;

  this(string value) {
    this._value = value;
  }

  Test opOpAssign(string op)(Test delegate(string) test) if(op == ">>") {

zakky-dev

import std.stdio;

interface Functor(T) {
  Functor!T fmap(Functor!T delegate(T) lam);
}

class TestFunctor(T) : Functor!T {
  private T _value;

  this(T value) {

zakky-dev

import qualified Data.Char as C

type FirstName = String
type LastName = String

flatten :: [[a]] -> [a]
flatten [] = []
flatten (x:xs) = x ++ flatten xs

toUpper :: String -> String

zakky-dev

import System.IO
import System.Directory
import qualified Data.Map as M
import Data.List.Split

-- リストのリストを結合し、一つのリストにする
flatten :: [[a]] -> [a]
flatten [] = []
flatten (x:xs) = x ++ flatten xs

zakky-dev

import Control.Monad

nothingMaybe :: Maybe Int
nothingMaybe = do
    a <- Just 4
    Nothing
    return a

zakky-dev

module Calc where

import ToyParser

choiceChar :: Char -> Char -> Parser Char Char
choiceChar a b = char a </> char b

valueP :: Parser Char Int
valueP = num </> (char '(' +> exprP <+ char ')')

zakky-dev

using System;
using System.Collections.Generic;

namespace Expression
{
    public static class Expression
    {
        public static ETry<TResult> Try<TResult>(Func<TResult> tryBlock)
        {
            return new ETry<TResult>(tryBlock);