lotusirous

module Main where

data Direction = R | L deriving (Show, Eq)

data State = State {pos :: Int, hit :: Int} deriving (Show, Eq)

type Step = Int
type Instruction = (Direction, Step)

parse :: String -> Instruction

lotusirous

module Main where

-- | Parse "11-22" into (11, 22)
parseRange :: String -> (Integer, Integer)
parseRange s = (read a, read b)
  where
    (a, _ : b) = break (== '-') s

-- | Split on commas: "a,b,c" -> ["a", "b", "c"]
splitCommas :: String -> [String]

lotusirous

-- Question: https://adventofcode.com/2015/day/3

import qualified Data.Set  as S
import           System.IO (readFile)

-- Move Santa according to a direction
move :: (Int, Int) -> Char -> (Int, Int)
move (x, y) c = case c of
  '^' -> (x, y + 1)
  'v' -> (x, y - 1)

lotusirous

-- Pull in the wezterm API
local wezterm = require("wezterm")

-- This will hold the configuration.
-- local config = wezterm.config_builder()
local act = wezterm.action

-- hyperlinks rules
local hyperlink_rules = wezterm.default_hyperlink_rules()
table.insert(hyperlink_rules, {

lotusirous

type stack []rune

func (s *stack) push(n rune) {
	*s = append(*s, n)
}

func (s *stack) pop() rune {
	if s.empty() {
		panic("stack is empty")

lotusirous

//
//  ContentView.swift
//  WeirdSheet
//
//  Created by lotusirous on 28/11/2022.
//

import SwiftUI

protocol Nameable {

lotusirous

import Combine
import Foundation

enum NetworkError: Error {
    case unauthorized
    case badServerResponse
    case wrongType
    case unknown
}

lotusirous

package main

import (
	"fmt"
	"log"
	"math/rand"
	"net/http"
	"time"
)

lotusirous

//
//  StreamRecorder.swift
//  pesos
//
//  Created by Gru-2019015 on 2022/08/26.
//

import AVFoundation
import Combine
import Foundation

lotusirous

def split_by_n(seq, n):
    """Split a sequence by n elements"""
    while seq:
        yield seq[:n]
        seq = seq[n:]