mrk21

class HumanReadableNumber
  attr_reader :b, :u_n

  def initialize(b:, u_n:)
    @b = b
    @u_n = u_n
  end

  def from(a)
    _E = [u_n.size-1, Math.log([1, a.abs].max, b).floor].min

mrk21

class ForkSafeProxy < BasicObject
  class << self
    def unwrap(instance)
      instance.__send__(:__value__)
    end
  end

  def initialize(&initializer)
    @mutex = ::Thread::Mutex.new
    @initializer = initializer

mrk21

class Retryer
  class RetryError < StandardError; end

  class Backoff
    def call(attempt)
      raise NotImplementedError
    end
  end

  class ExponentialBackoffAndEqualJitter < Backoff

mrk21

class ThreadPool
  def initialize(n)
    @n = n
    @queue = Thread::SizedQueue.new(@n)
    @workers = []
  end

  def shutdown
    @queue.close
    errors = []

mrk21

class << ENV
  # This method behavior is almost same as `ENV.fetch()`, but it returns default value even when the value was empty string.
  def fetch2(*args, &block)
    key, default = args
    value = fetch(*args, &block)
    return value if value != ''
    
    raise KeyError, format('key not found: "%s"', key) if args.size == 1 && !block
    warn('block supersedes default value argument', uplevel: 1) if args.size == 2 && block
    block ? yield(key) : default

mrk21

# $ brew install mecab
# $ brew install mecab-ipadic
# $ gem install natto
# $ ruby mecab_sort.rb
# "シュジンコウ"
# "ジョウシャ"
# "ジョウシャ"
# "コウムイン"
# "シュジンコウ"
# "コウムイン"

mrk21

class SimpleMutex {
  _lock: boolean;
  _resolves: Array<() => void>;

  constructor() {
    this._lock = false;
    this._resolves = [];
  }

  async synchronize(callback: () => Promise<any>) {

mrk21

package main

import (
	"encoding/json"
	"fmt"
	"reflect"
)

// Example:
//

mrk21

$HostIP = [IPAddress]"0.0.0.0"

function Invoke-WSL-Command([String]$Cmd) {
  while (1) {
    $Result = wsl bash -c $Cmd
    if (!$?) {
      Write-Debug "Retry...: $Cmd"
      Start-Sleep 1
      continue
    }

mrk21

function Get-Network-From-CIDR([String]$CIDR) {
  $Parsed = $CIDR -split "/"
  $IP = [IPAddress]$Parsed[0]
  $Length = [Int]$Parsed[1]
  $SubnetMask = [IPAddress](([Math]::Pow(2, 32) - 1) -bxor ([Math]::Pow(2, (32 - $Length)) - 1))
  $IP = [IPAddress]($IP.Address -band $SubnetMask.Address)
  return New-Object PSObject -Property @{
    IP = $IP;
    SubnetMask = $SubnetMask
  }