NoCheroot

In order to implement IEnumerator<T> you have to explicitly implement the Current member for IEnumerator<T> and IEnumerator ... but PowerShell won't let you have two different implementations of the same property, nor will it let you explicitly implement an interface member. So we do one at a time, like this:

First, make a non-generic IEnumerator, but implemented with the type you want in the end:

    class __Generator : System.Collections.IEnumerator {
        [int]$Actual = 0

        [object]get_Current() {
            return $this.Actual

NoCheroot

#![windows_subsystem = "windows"]
extern crate winapi;
extern crate user32;
extern crate kernel32;

use std::ffi::OsStr;
use std::os::windows::ffi::OsStrExt;
use std::iter::once;
use std::mem;
use std::ptr::null_mut;

NoCheroot

const I = x => x;
const K = x => y => x;
const A = f => x => f(x);
const T = x => f => f(x);
const W = f => x => f(x)(x);
const C = f => y => x => f(x)(y);
const B = f => g => x => f(g(x));
const S = f => g => x => f(x)(g(x));
const P = f => g => x => y => f(g(x))(g(y));
const Y = f => (g => g(g))(g => f(x => g(g)(x)));

NoCheroot

/*
 * Example of a state monad in use.  This is adapted from an example on
 * the Haskell Wiki:
 * http://www.haskell.org/haskellwiki/State_Monad#Complete_and_Concrete_Example_1
 */
require(['state', 'qunit'], function(state, qunit) {

    /*
     * playGame() is a recursive function that given an array of moves
     * defines an algorithm for constructing a final game score.  Along

NoCheroot

$a, $b = 0, 1, 2, 3, 4, 5, 6, 7, 8, 9

Write-Host "First: $a"
Write-Host "Rest: $b"

NoCheroot

# Resetting your Windows Subsystem for Linux (WSL) Environment

lxrun.exe /uninstall /full
lxrun.exe /install

NoCheroot

(load-shared-object "./libsbv.so")

(define-ftype color
  (struct
    [r float]
    [g float]
    [b float]
    [a float]))

(define make-rgba

NoCheroot

#lang racket

(let ([n (make-base-namespace)])
  (parameterize ([current-namespace n])
    (eval '(define (oneplusone) (+ 1 1)))
    (eval '(define (oneplustwo) (+ 1 2)))
    (filter (lambda (y) (regexp-match #px"^one" y))
            (map (lambda (x) (symbol->string x)) (namespace-mapped-symbols n)))))

NoCheroot

#lang racket
(require framework)

(filter (lambda (x) (regexp-match #px"^def" x)) (text:get-completions/manuals #f))

NoCheroot

$cmd = "ConvertTo-Json -"
$ret = [System.Management.Automation.CommandCompletion]::MapStringInputToParsedInput($cmd, $cmd.Length)

$candidates = [System.Management.Automation.CommandCompletion]::CompleteInput(
    $ret.Item1,
    $ret.Item2,
    $ret.Item3,
    $null,
    [System.Management.Automation.PowerShell]::Create()
).CompletionMatches