Charles Maria Tor Qata

I'm a programming consultant with a penchant for functional (reactive) programming.

Qata / gist:dd32d581de555998f77d

Last active August 29, 2015 14:21

	- (RACSignal *)rac_capturedMetadataObjectsSignal
	{
	[self setMetadataObjectsDelegate:self queue:dispatch_get_main_queue()];
	RACSignal *signal = objc_getAssociatedObject(self, _cmd);
	if (signal != nil) return signal;

	signal = [[[[self rac_signalForSelector:@selector(captureOutput:didOutputMetadataObjects:fromConnection:) fromProtocol:@protocol(AVCaptureMetadataOutputObjectsDelegate)] reduceEach:^id(AVCaptureOutput * output, NSArray * objects, AVCaptureConnection * connection){
	return objects;
	}] filter:^BOOL(NSArray * objects) {
	return objects.count;

Qata / gist:20dafd7c306018b4b7bd

Created May 13, 2015 07:02

	- (void)viewWillAppear:(BOOL)animated
	{
	[super viewWillAppear:animated];
	@weakify(self);
	[[[[[[[[self.output.rac_capturedMetadataObjectsSignal filter:^BOOL(AVMetadataMachineReadableCodeObject * codeObject) {
	return [codeObject isKindOfClass:[AVMetadataMachineReadableCodeObject class]] && [codeObject.type isEqual:@"org.iso.QRCode"];
	}] map:^id(AVMetadataMachineReadableCodeObject * codeObject) {
	return codeObject.stringValue;
	}].distinctUntilChanged map:^id(NSString * JSONString) {
	return [NSJSONSerialization JSONObjectWithData:[[JSONString stringByReplacingOccurrencesOfString:@"\\" withString:@""] dataUsingEncoding:NSASCIIStringEncoding] options:0 error:nil];

Qata / Kirby

Created May 18, 2015 06:39

	import Text
	import Color exposing (..)
	import Mouse
	import Window
	import Time exposing (inSeconds, fps)
	import Signal exposing (..)
	import Graphics.Element exposing (..)
	import Graphics.Collage exposing (..)

	sampleWithFPS frames signal = sampleOn (inSeconds <~ fps frames) signal

Qata / fizzbuzz.hs

Created December 21, 2015 04:31

	let numbers = map show [1..100]
	let fizzes = cycle $ (take 4 $ repeat "") ++ ["FIZZ"]
	let buzzes = cycle $ (take 2 $ repeat "") ++ ["BUZZ"]

	let fizzbuzzes = zipWith (++) fizzes buzzes

	zipWith (max) numbers fizzbuzzes

Qata / main.elm

Created February 19, 2016 04:28

	import Html exposing (..)
	import Html.Attributes as Attr exposing (..)
	import Html.Events exposing (..)
	import Http
	import Json.Encode as Encode exposing (..)
	import Json.Decode as Decode exposing ((:=))
	import String
	import Task exposing (..)
	import Graphics.Element exposing (show)

Qata / timeout.m

Last active March 4, 2016 00:33

	[[[[self.gateways takeUntil:[[RACSignal empty] delay:timeout]] filter:^BOOL(NSDictionary *object) {
	return [object[kMACAddressAccessor] caseInsensitiveCompare:mac] == NSOrderedSame;
	}] concat:[RACSignal error:[NSError errorWithDomain:RPCErrorDomain code:ERROR_TIMEOUT userInfo:@{NSLocalizedDescriptionKey:@"Timed out while waiting for a response"}]]] take:1]

Qata / white-trans-woman-bingo.elm

Created March 3, 2016 22:30

	import Signal
	import Graphics.Element exposing (..)
	import Graphics.Input exposing (button)
	import Graphics.Collage exposing (collage, toForm)
	import List exposing (..)
	import List.Extra exposing (..)
	import Color
	import Text
	import Random
	import Window

Qata / white-trans-woman-bingo.elm

Created March 3, 2016 23:15

	import Signal
	import Graphics.Element exposing (..)
	import Graphics.Input exposing (button)
	import Graphics.Collage exposing (collage, toForm)
	import List exposing (..)
	import List.Extra exposing (..)
	import Color
	import Text
	import Random
	import Window

Qata / selfcheckout.elm

Created March 8, 2016 05:23

	import Signal
	import Graphics.Element exposing (..)
	import Graphics.Input exposing (..)
	import Graphics.Input.Field exposing (..)
	import List
	import String
	import Window
	import Task exposing (Task)
	import Text
	import Keyboard

Qata / maybe.c

Created March 17, 2016 04:01

	//
	// CTMaybe.c
	// Firestarter
	//
	// Created by Charlotte Tortorella on 17/03/2016.
	// Copyright © 2016 DALI Lighting. All rights reserved.
	//

	#include "CTMaybe.h"