jmilum

#define ANALOG_IN 0

void setup() {
  Serial.begin(9600); 
  //Serial.begin(115200); 
}

void loop() {
  int val = analogRead(ANALOG_IN);                                              
  Serial.write( 0xff );                                                         

jmilum

(defn group-by-with-transducer [key-f xf data]
  (let [ff (memoize (fn [k] (xf conj)))
        r  (reduce (fn [m d]
                     (let [k (key-f d)
                           v (get m k [])]
                       (if (reduced? v)
                         m
                         (assoc m k ((ff k) v d)))))
                   {}
                   data)]

jmilum

#!/usr/bin/perl -w

use strict;
use LWP::UserAgent;

my $agent;
my $from;
my $passwd;
my $to;
my $subject;