peterszerzo

I am attesting that this GitHub handle peterszerzo is linked to the Tezos account tz1Qd57kL3wjCdmhUBaHJVvDaPcBcq79nik9 for tzprofiles

sig:edsigtsnLtDTvKMcRkpMdMmw4reKBXTG72iJ7DzYKbUAyw1LAppp6majPRmUjwLQmZ3zgxHwwgAqEgRTRZFQ8qMtJhfVJMVGNZh

peterszerzo

import equals from "ramda/src/equals";

export interface Undoable<T> {
  _current: T;
  _prevs: Array<T>;
  _nexts: Array<T>;
}

export const create = <T>(val: T): Undoable<T> => ({
  _current: val,

peterszerzo

<script lang="ts">
  type Pet = Fish | Bird;

  interface Fish {
    type: "fish";
    isLarge: boolean;
  }

  interface Bird {
    type: "bird";

peterszerzo

import mapAccum from "ramda/src/mapAccum";

const removeConsecutiveEmptyLines = (val: string): string =>
  mapAccum(
    (previous: null | string, current: string) => {
      return [current, previous === "" && current === "" ? null : current];
    },
    null,
    val.split("\n")
  )[1]

peterszerzo

module CustomHooks where

import Prelude
import Data.Maybe (Maybe(..), maybe)
import Data.Newtype (class Newtype)
import Data.DateTime.Instant (unInstant)
import Data.Nullable (Nullable, notNull, null)
import Data.Time.Duration (Milliseconds(..))
import Effect (Effect)
import Effect.Now (now)

peterszerzo

module Main exposing (main)

import Browser
import Element as Element
import Element.Background as Background
import Element.Events as Events
import Element.Font as Font
import Html exposing (Html, button, div, text)
import Html.Events exposing (onClick)
import Reader

peterszerzo

(ns floorplan.core
  (:require [quil.core :as q]
            [quil.middleware :as m]))

(defn setup []
  ; Set frame rate to 30 frames per second.
  (q/frame-rate 30)
  ; Set color mode to HSB (HSV) instead of default RGB.
  (q/color-mode :hsb)
  ; setup function returns initial state. It contains

peterszerzo

module TicTacToe where

import           Control.Monad.State
import           Data.Char
import           Data.List
import qualified Data.Map            as Map
import           Data.Maybe
import qualified System.Process      as Process

-- Cell

peterszerzo

module Main exposing (main)

import Browser
import Dict
import Html exposing (..)
import Html.Events exposing (onClick)
import Mark

peterszerzo

const canvasSketch = require("canvas-sketch");

const dim = 1000;

const range = n => [...Array(n).keys()];

const settings = {
  dimensions: [dim, dim],
  animate: true,
  duration: 30,