pragdave

ascending([]).
ascending([_]).
ascending([H | [ S | T ]]) :-
  H < S,
  ascending([S | T]),
  !.

valid([P1, P2, P3]) :-
  ascending(P1),
  ascending(P2),

pragdave

import {makeScene2D} from '@motion-canvas/2d/lib/scenes';
import {Rect, View2D} from '@motion-canvas/2d/lib/components';
import {createRef, Reference} from '@motion-canvas/core/lib/utils';
import { Color, Vector2 } from '@motion-canvas/core/lib/types';

const PoleLong      = 201
const PoleShort     = 25
const PoleBase      = 150
const DiskCount     = 5
const MinDiskWidth  = 50

pragdave

Wow! Fantastic conference. I'm sure at the end we'll have a nice summary, so I'm not going gush too much.

But I must admit, I always enjoy these conferences, so thank you to everybody involved.

How many people have seen me speak at a previous elixir event? Oh, a fair number. «How many have heard me speak» twice?

All right, so the ones that have seen me speak are kind of nervous right now.

pragdave

import Data.List     (sort, intersperse, union)
import Data.Function ( (&) ) 
import System.Random (Random(randomRIO))

(|>) = (&)     -- 'cos I'm too old to switch...

pickRandomWord :: [ String ] -> IO String
pickRandomWord words = do 
  rand <- randomRIO (0, length words - 1)
  return (words !! rand)

pragdave

export function clapperBoard() {
  let audio = new AudioContext()
  let beep  = audio.createOscillator()
  let flash = document.createElement("div")

  beep.frequency.value = 440 * 5
  beep.connect(audio.destination)
  flash.classList.add("clapperboard")

  beep.start()

pragdave

// swap the clauses in the following sentence
// the result will be "the world is your oyster, if you can program"
str1 = "if you can program, the world is your oyster"

// replace three or more trailing identical digits in a number wih just one
// digit and three dots, so 0.456666 becomes 0.456... and 124.3333 becomes
// 124.3...  Numbers such as 124.33 and 124.35553 are left unchanged

str2a = "0.456666"
str2b = "124.3333"

pragdave

str1 = "replace    multiple spaces   in     this   string with a      single                    space"
str2 = "remove the decimal point and fractional parts of 3.14159 and 99.999."
str3 = "if words are 4 or more characters surrounded by spaces, replace words in this sentence with a single W"
str4 = "like str3 but now words must be between 4 and 6 characters"

pragdave

str0 = "Does this string contain the word 'cat'?"

str1 = "what is the offset of the character X in this string?"
str2 = "Replace the first space in this string with a plus sign"
str3 = "Replace all spaces with plus signs in this string"
str4 = "What is the position of the first occurrence of two adjacent vowels in this string?"
str5 = "Delete ALL the Upper Case letters in this string"

pragdave

/// <summary>
///   Builds a map where the keys are word signatures and
///   each value is the list of words that share that signature.
///   The signature of a word is simply a string containing
///   the word's letters, sorted. Thus "dog" and "god" will
///   both have the signature "dgo", and the entry in the map
///   with that key will be those two words.
///
///   This let's us quickly find anagrams
/// </summary>

pragdave

defmodule RomanNumeral do
  @mapping [
    {1000, 'M'},
    {900,  'CM'},
    {500,  'D'},
    {400,  'CD'},
    {100,  'C'},
    {90,   'XC'},
    {50,   'L'},
    {40,   'XL'},