clementi

import argparse
import json
import os.path
import subprocess
import sys


CONFIG_FILE_NAME = ".raprc"
APPCMD_PATH = "c:/windows/system32/inetsrv/appcmd.exe"

clementi

open System
open System.IO

let getPathItems = 
    let path = Environment.GetEnvironmentVariable "PATH" in
    path.Split Path.PathSeparator

[<EntryPoint>]
let main argv = 
    Array.iter (printfn "%s") getPathItems

clementi

import System.Environment
import System.FilePath

wordsWhen :: (Char -> Bool) -> String -> [String]
wordsWhen p s = case dropWhile p s of
                  "" -> []
                  s' -> w : wordsWhen p s''
                        where (w, s'') = break p s'

main :: IO ()

clementi

module Main where

import System.Directory
import System.Environment
import System.Info

firstJust :: [Maybe a] -> Maybe a
firstJust [] = Nothing
firstJust (x:xs) = case x of
                     Nothing -> firstJust xs

clementi

#lang racket

(require racket/match)

(define (eval exp env)
  (match exp
    [`(,f ,e) (apply (eval f env) (eval e env))]
    [`(λ ,v . ,e) `(closure ,exp ,env)]
    [(? symbol?) (cadr (assq exp env))]))

clementi

(defn factorial [n]
  (if (= n 0)
      1
      (* n (factorial (- n 1)))))

clementi

var prefixes = [
    {
        prefix: "",
        name: ""
    },
    {
        prefix: "Ki",
        name: "kibi"
    },
    {

clementi

var prefixes = [
    {
        prefix: "",
        name: ""
    },
    {
        prefix: "Ki",
        name: "kibi"
    },
    {

clementi

namespace Ncoa.Matching.UI
{
	using System.Collections.Generic;
	using System.Linq;
	using StorageAccess;

	public abstract class FakeQueryStorage<T> : IQueryStorage
	{
		protected IEnumerable<T> items;

clementi

def logistic_map(x0, r, n):
    if n == 0:
        return x0

    x_prev = logistic_map(x0, r, n - 1)
    return r * x_prev * (1 - x_prev)