htsign

import java.util.ArrayList;
import java.util.List;
import java.util.Objects;

public class Pair<Left, Right> {
    private static final List<Pair<?, ?>> cache = new ArrayList<>();
    
    public final Left left;
    public final Right right;
    private Pair(Left left, Right right) {

htsign

// required: FSharp.Control.AsyncSeq

open FSharp.Control
open System.Diagnostics
open System.Drawing
open System.Windows.Forms

let inline initCollectionWithCtor< ^a, 'b, 'c when ^a : (member Add : 'b -> 'c)> items collection =
    let add xs x = (^a : (member Add : 'b -> 'c) (xs, x))
    items |> List.fold (fun (xs : 'a) x -> add xs x |> ignore; xs) collection

htsign

module MyArray : sig
  type ('a, 'status) t
  type regular
  type sorted
    
  val create : 'a array -> ('a, regular) t
  val to_array : ('a, 'status) t -> 'a array
  val sort : ?comparer:('a -> 'a -> int) -> ('a, regular) t -> ('a, sorted) t
end = struct
  type ('a, 'status) t = Array of 'a array

htsign

// Go

package main

import (
	"bufio"
	"fmt"
	"os"
)

htsign

// ==UserScript==
// @name         Key media control for niconico
// @namespace    https://htsign.hateblo.jp
// @version      0.9.6
// @description  ニコニコ動画本体側でいろいろ便利になった結果、今は音量を表示させる機能と次の動画を自動再生させない機能のみ
// @author       htsign
// @match        https://www.nicovideo.jp/watch/*
// @match        https://live.nicovideo.jp/watch/*
// @updateURL    https://gist.github.com/htsign/014c9b053f5eb62791fc04570ce79dcc/raw/MediaControlNiconico.user.js
// @downloadURL  https://gist.github.com/htsign/014c9b053f5eb62791fc04570ce79dcc/raw/MediaControlNiconico.user.js

htsign

public class ExceptionWrapper {
    @SuppressWarnings("unchecked")
    public static <T, E extends Exception> T exec(ThrowableSupplier<T, E> func, Function<E, T> orElse) {
        try {
            return func.getThrowable();
        }
        catch (WrapperException e) {
            Throwable cause = e.getCause();
            if (cause instanceof Exception) {
                return orElse.apply((E) cause);

htsign

Windows Registry Editor Version 5.00

[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Keyboard Layout]
"Scancode Map"=hex:00,00,00,00,00,00,00,00,03,00,00,00,2a,00,7b,00,36,00,79,00,00,00,00,00

htsign

module Monad = struct
  module type MonadType = sig
    type 'a t
    val map : ('a -> 'b) -> 'a t -> 'b t
    val return : 'a -> 'a t
    val apply : ('a -> 'b) t -> 'a t -> 'b t
    val flatmap : ('a -> 'b t) -> 'a t -> 'b t
  end

  module type MonadType2 = sig

htsign

include Stdlib.List

let scan f ?init xs =
  let scan' xs = 
    let rec aux acc xs =
      match acc, xs with
      | _, [] -> acc
      | [], x :: xs -> aux [x] xs
      | x :: _, y :: ys -> aux (f x y :: acc) ys
    in

htsign

include Stdlib.Seq

let cons x xs = fun () -> Cons (x, xs)

let rev xs =
  let rec aux acc ys =
    match ys () with
    | Nil -> acc
    | Cons (y, ys) -> aux (cons y acc) ys
  in