acple

;; SandS for AutoHotkey


;; ===初期設定==========================================================
;; 多重起動の制御をforceに指定
#SingleInstance force

;; 環境変数を無視する
#NoEnv

acple

using System.Diagnostics;
using static System.Console;

class Program
{
    static void Main(string[] args)
    {
        // 末尾再帰の検証 .NET framework 4.6.1 / Release_x64

        //A(10000000); // -> StackOverflowException!!!!

acple

module TypeClassTest where

import Prelude
import Unsafe.Coerce (unsafeCoerce)

class TwoParams a b where
  func :: a -> b

instance equals :: TwoParams a a where
  func = identity

acple

<Project Sdk="Microsoft.NET.Sdk">

  <PropertyGroup>
    <OutputType>Exe</OutputType>
    <TargetFramework>netcoreapp2.2</TargetFramework>
    <LangVersion>8.0</LangVersion>

    <!-- for Visual Studio 16.2.x Preview -->
    <Nullable>enable</Nullable>

acple

using System.Collections.Generic;
using ParsecSharp;
using ParsecSharp.Internal;

namespace ParsecSharp.Extensions
{
    public static class Parser
    {
        public static Parser<TToken, T> Memoize<TToken, T>(Parser<TToken, T> parser)
        {

acple

using System;
using ParsecSharp;

namespace ParsecSharp.Utils
{
    public class DebugOutputStream<TToken> : IParsecStateStream<TToken>
    {
        public enum MoveState { Backward, Stay, Forward }

        private class Cursor

acple

module Main where

import Prelude

import Data.Maybe (Maybe(..))
import Data.Symbol (SProxy(..))
import Effect (Effect)
import Effect.Class (class MonadEffect)
import Effect.Class.Console (log)
import Halogen (raise)

acple

using System;
using System.Buffers.Binary;
using System.Runtime.CompilerServices;

namespace Base32
{
    public class Base32Encoding
    {
        [MethodImpl(MethodImplOptions.AggressiveInlining)]
        public string Encode(ReadOnlySpan<byte> bytes)

acple

using System;

namespace Sandbox
{
    class Program
    {
        static void Main(string[] args)
        {
            var x = 1;
            {

acple

module Data.Typelevel.Nat where

import Prelude

import Data.Symbol (SProxy(..))
import Prim.Symbol as Symbol

class IsNat nat where
  reflectNat :: SProxy nat -> Int