ElectricCoffee

NB. Preliminary research
die =. 1 + i. 6

solution_1 =. ,(2 = #@~.)"1 (,"0 1/ ,"0/~)~ die  NB. this solution assembles a matrix
solution_2 =. _3 (2 = #@~.)\ ; { 3 $ < die       NB. this solution uses the catalogue function to create a table of boxes
solution_3 =. (2 = #@~.)"1 (#: i.@(*/)) 3 $ 6    NB. this solution was provided by elcaro

calc_pct =. 100 * # %~ +/                        NB. chained forks are one hell of a drug

NB. Implemented solution

ElectricCoffee

import _ from 'lodash';
import Fn from './functools';

it('ignores all inputs', () => {
  const actual = Fn.nop(800, 'hello there', []);
  expect(actual).toBeUndefined();
});

it('only returns the constant', () => {
  const fn = Fn.constant(8);

ElectricCoffee

To use this script you must download two things:

1. A userscript manager

• Firefox: Install Greasemonkey
• Chrome: Install Tampermonkey

2. The Pyramid Love font: https://seagullincident.com/pyramidlove/

First, install the font; then click on the {grease,tamper}monkey icon and click "new user script". Copy the code in the other file and paste it in.

ElectricCoffee

const MIN_X = 0;
const MAX_X = 4;
const MIN_Y = 0;
const MAX_Y = 4;
const MAX_VAL = 8;

const mat = Array.from(Array(5), () => Array(5).fill(MAX_VAL));

const supply = Array(8).fill(3);

ElectricCoffee

Solution ← {¯1+⍺+⍺⍳⍨≢¨⍺ ∪/⍵}

⍝ Or with ⎕io ← 0:
Solution ← {⍺+⍺⍳⍨≢¨⍺ ∪/⍵}

ElectricCoffee

#!/usr/bin/env perl
use 5.30.0;
use warnings;
use Cwd 'getcwd';
use File::Basename;

my $dir = getcwd;

my ($name) = File::Basename::fileparse($dir);

ElectricCoffee

import { useState } from "react";

/**
 * Creates a specialised `useState` which includes mutators in its definition.
 * The returned object includes a `get()` method and a `set(x)` method by default.
 * @param init The default value
 * @param mutators an object containing the mutator functions
 * @example
 * ```
 *  const counter = useTilstand(0, {

ElectricCoffee

name: Carnac
players: 2
components: 
- 28 megaliths
- 3 boards

board sizes: small, medium, and large.

player actions are: proceed and skip.

ElectricCoffee

#lang racket

(define LOOP/CC (box '()))
(define BREAK/CC (box '()))

(define (continue)
  (let ((loop/cc (unbox LOOP/CC)))
    (loop/cc loop/cc)))

(define (break)

ElectricCoffee

export class Maybe<A> {
    readonly kind: "Just" | "Nothing";
    value?: A;

    private constructor(kind: "Just" | "Nothing", value?: A) {
        this.kind = kind;
        this.value = value;
    }

    static readonly just = <A>(value: A): Maybe<A> => new Maybe("Just", value);