kbridge

;; style 1

(let [console (System/console)
      password-char-array (.readPassword console "Password (hidden): " (to-array ()))
      password (String. password-char-array)
      quoted (fn [s] (str \' s \'))]
  (println (quoted password)))

;; style 2

kbridge

import Data.Bits (Bits (testBit), FiniteBits(countLeadingZeros, finiteBitSize))
import Data.Char (intToDigit)

toBinary :: FiniteBits a => a -> [Char]
toBinary n = [charOfBitAt i n | i <- reverse [0..(bitLength n - 1)]]
    where
        bitLength = (-) <$> finiteBitSize <*> countLeadingZeros
        charOfBitAt i = intToDigit . fromEnum . flip testBit i

kbridge

"Longitude (x)","Latitude (y)","Station Name","Climate ID","Date/Time (LST)","Year","Month","Day","Time (LST)","Temp (°C)","Temp Flag","Dew Point Temp (°C)","Dew Point Temp Flag","Rel Hum (%)","Rel Hum Flag","Precip. Amount (mm)","Precip. Amount Flag","Wind Dir (10s deg)","Wind Dir Flag","Wind Spd (km/h)","Wind Spd Flag","Visibility (km)","Visibility Flag","Stn Press (kPa)","Stn Press Flag","Hmdx","Hmdx Flag","Wind Chill","Wind Chill Flag","Weather"
"-73.75","45.47","MONTREAL/PIERRE ELLIOTT TRUDEAU INTL A","7025250","2012-03-01 00:00","2012","03","01","00:00","-5.5","","-9.7","","72","","","","5","","24","","4.0","","100.97","","","","-13","","Snow"
"-73.75","45.47","MONTREAL/PIERRE ELLIOTT TRUDEAU INTL A","7025250","2012-03-01 01:00","2012","03","01","01:00","-5.7","","-8.7","","79","","","","6","","26","","2.4","","100.87","","","","-13","","Snow"
"-73.75","45.47","MONTREAL/PIERRE ELLIOTT TRUDEAU INTL A","7025250","2012-03-01 02:00","2012","03","01","02:00","-5.4","","-8.3","","80","","","","5","","28","","

kbridge

// https://eigen.tuxfamily.org/dox/GettingStarted.html
// https://eigen.tuxfamily.org/dox/group__TutorialMatrixArithmetic.html
//
// SeeAlso: https://www.boost.org/doc/libs/1_79_0/libs/qvm/doc/html/index.html

#define EIGEN_INITIALIZE_MATRICES_BY_ZERO

#include <iostream>
#include <Eigen/Dense>

kbridge

import sys
from typing import Iterator, Optional

ascii_range = range(32, 128)

def is_non_ascii(b):
    return b not in ascii_range

def non_ascii_iter(bs):
    return (b for b in bs if is_non_ascii(b))

kbridge

#!/usr/bin/env escript

%% Before
%%     erl> h(maps). => There is no documentation for maps
%% After
%%     erl> h(maps). => This module contains functions for maps processing...

%% Usage:
%%
%% 1. Install the documentation

kbridge

Roblox Scripting Guide

Written by Greenman#0001

The Roblox Wiki is one of the best ways to learn how to script but unfortunately, all of the tutorials on there have been scrambled due to the redesign so this guide is just sorting out the tutorials again so you can read them in the correct order. This guide should cover everything you need to become competent or at least confident with Roblox Lua.

Disclaimer

This will not guarantee that you will learn Lua quickly or even at all. It's your responsibility to use the resources here effectively by taking your time, taking notes, practicing, etc. This list will be updated as I find articles on important concepts that I overlooked so make sure you check back frequently.

kbridge

import Data.IORef

newCounter :: IO (IO Int)
newCounter = do
  n <- newIORef 0
  return $ do
    modifyIORef' n (+1)
    readIORef n

-- GHCi:

kbridge

maybeBind :: IO (Maybe a) -> (a -> IO (Maybe b)) -> IO (Maybe b)

maybeBind x f  =
    x >>= \a ->
        case a of
        Just y -> f y
        Nothing -> return Nothing

getLineMaybe :: IO (Maybe String)
getLineMaybe = getLine >>= \line -> return $ if null line then Nothing else Just line

kbridge

(def p1
  {:name "Danny",
   :address {:country "Finland",
             :city "Helsinki"}})

(defn lens [key]
  (let [getter key
        setter (fn [s a] (assoc s key a))]
    (fn [fmap]
      (fn [f]