faust45

## fibers.scm
(define-module (async)
  #:export (make-channel
	    ch-write
	    ch-read
	    fiber))

(use-modules (ice-9 match)
	     (ice-9 atomic)
	     (ice-9 q)
	     (ice-9 threads)

## btree.hs
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

## push.rb
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

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

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

class AState {

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

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

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

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

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

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

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

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

## app.rkt
#lang racket/load

(define (add-rat x y)
  (make-rat (+ (* (numer x) (denom y))
               (* (numer y) (denom x)))
            (* (denom x) (denom y))))

(define (sub-rat x y)
  (make-rat (- (* (numer x) (denom y))
               (* (numer y) (denom x)))

## gist:2381c80cfc7e6033ebe5518c7ebc5702
#lang racket/load

(define (add-rat x y)
  (make-rat (+ (* (numer x) (denom y))
               (* (numer y) (denom x)))
            (* (denom x) (denom y))))

(define (sub-rat x y)
  (make-rat (- (* (numer x) (denom y))
               (* (numer y) (denom x)))
	(define-module (async)
	#:export (make-channel
	ch-write
	ch-read
	fiber))

	(use-modules (ice-9 match)
	(ice-9 atomic)
	(ice-9 q)
	(ice-9 threads)
	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
	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
	import 'package:flutter/material.dart';
	import 'menu/app_drawer.dart';
	import 'state.dart';
	import 'package:get/get.dart';

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

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

	(def s1 "[[][{]]")
	(def s2 "[[]][][{]}[]")
	(def s3 "[[{}][]]")
	#lang racket/load

	(define (add-rat x y)
	(make-rat (+ (* (numer x) (denom y))
	(* (numer y) (denom x)))
	(* (denom x) (denom y))))

	(define (sub-rat x y)
	(make-rat (- (* (numer x) (denom y))
	(* (numer y) (denom x)))