faust45

faust45 / fibers.scm

Created March 25, 2023 20:36

faust45 / btree.hs

Created July 5, 2022 20:57 — forked from yamaguchiyuto/btree.hs

Haskell B-tree implementation

	data Tree a = Nil Int \| Leaf Int [a] \| Node Int [a] [Tree a] deriving Show

	find :: (Ord a, Eq a) => Tree a -> a -> Bool
	find (Nil _) _ = False
	find (Leaf _ []) _ = False
	find (Leaf m (k:ks)) x
	\| x == k = True
	\| x < k = False
	\| x > k = find (Leaf m ks) x
	find (Node _ [] (t:ts)) x = find t x

faust45 / push.rb

Created January 28, 2021 13:51

	module PushNotifications
	class Enqueuer
	attr_accessor :user

	def initialize(u)
	@user = u
	end

	def enqueue(payload)
	token = User::DeviceToken.where(user_id: user.id, token_type: 'ios').last

faust45 / main.dart

Last active January 24, 2021 10:10

	import 'package:flutter/material.dart';
	import 'menu/app_drawer.dart';
	import 'state.dart';
	import 'package:get/get.dart';

	void main() {
	runApp(MyApp());
	}

	class AState {

faust45 / app.clj

Created January 11, 2020 12:36

	(ns app
	(:require [clojure.string :refer [replace]]))

	(def s1 "[[][{]]")
	(def s2 "[[]][][{]}[]")
	(def s3 "[[{}][]]")

faust45 / app.clj

Created January 11, 2020 12:35

	(ns app
	(:require [clojure.string :refer [replace]]))

	(def s1 "[[][{]]")
	(def s2 "[[]][][{]}[]")
	(def s3 "[[{}][]]")

faust45 / app.clj

Created January 11, 2020 12:34

	(ns app
	(:require [clojure.string :refer [replace]]))

	(def s1 "[[][{]]")
	(def s2 "[[]][][{]}[]")
	(def s3 "[[{}][]]")

faust45 / gist:eaf59f33b90ace6256b3c872d222abac

Created January 11, 2020 12:33

Valid Parentheses

	(ns app
	(:require [clojure.string :refer [replace]]))

	(def s1 "[[][{]]")
	(def s2 "[[]][][{]}[]")
	(def s3 "[[{}][]]")

faust45 / app.rkt

Created February 1, 2019 11:21

faust45 / gist:2381c80cfc7e6033ebe5518c7ebc5702

Created February 1, 2019 11:20