little-arhat

(* batStream.ml *)

let to_list fl =
  let buf = ref []
  in (iter (fun x -> buf := x :: !buf) fl; List.rev !buf)
	      
let to_string fl =
  let sl = to_list fl in
  let len = List.length sl in
  let s = String.create len

little-arhat

Header

• point1

• point2

little-arhat

On the plus side:

Warm plastic, comfortable to hold, no sharp edges.

MicroUSB connector. A single cable to share with the Kindle, etc.

Awesome ringtones!

LED and BlackberryBuzz that allows you to configure the LED color and sequence for various app and system events.

little-arhat

;; utop.el
;; -------
;; Copyright : (c) 2011, Jeremie Dimino <jeremie@dimino.org>
;; Licence   : BSD3
;;
;; This file is a part of utop.

;; +-----------------------------------------------------------------+
;; | Customizable variables                                          |
;; +-----------------------------------------------------------------+

little-arhat

blablabla
gewgg
g
weg
we
gewg
ewgew

little-arhat

(* quick and dirty impl of floyd cycle detection algo *)

type 'a llist = Nil | Cons of ('a * 'a llist)

let rec d = Cons ("d", a) and
    a = Cons ("a", Cons("b", Cons("c", d)));;

type 'a pointer = {value:'a; rest:'a llist}
let eq p1 p2 = p1.value = p2.value

little-arhat

;; utop.el
;; -------
;; Copyright : (c) 2011, Jeremie Dimino <jeremie@dimino.org>
;; Licence   : BSD3
;;
;; This file is a part of utop.

;; +-----------------------------------------------------------------+
;; | Customizable variables                                          |
;; +-----------------------------------------------------------------+

little-arhat

2014-09-13 19:42:33 +0400

../configure
--build=x86_64-apple-darwin13.3.0
--prefix=/Users/user/.brew/Cellar/gcc/4.9.1
--enable-languages=c,c++,objc,obj-c++,fortran
--program-suffix=-4.9
--with-gmp=/Users/user/.brew/opt/gmp
--with-mpfr=/Users/user/.brew/opt/mpfr
--with-mpc=/Users/user/.brew/opt/libmpc

little-arhat

extern crate collections;
extern crate core;

use std::vec::Vec;
use core::ptr;

use std::slice::MutableCloneableSlice;

little-arhat

bt: flip `email`password ! ("Ss"; "\t") 0: `:./Gmail.txt
dbt: distinct bt
cdbt: count dbt
select password,no:i+1,c,percent from `c xdesc select percent:(100 * (count i) % cdbt),c:count i by password from dbt where not (password like "")