View send-more-money.pl
#!perl
use strict;
use warnings;
my %digits = map { $_ => 1 } ( 0 .. 9 );
sub choose ($&) {
my ( $set, $sub ) = @_;
map { $sub->($_) } grep { $set->{$_} } keys %$set;
View NewsBlur_2013-10-02-191424_iPhone.crash
Incident Identifier: 4ADFC591-C9E3-4D01-9356-B42799D6D526
CrashReporter Key: d9072db6a2d426fbdc9560a746ec0f5e50cd213d
Hardware Model: iPhone6,1
Process: NewsBlur [192]
Path: /var/mobile/Applications/D329DFB6-C808-415F-BF05-8DBBE8FBE3B7/NewsBlur.app/NewsBlur
Identifier: com.newsblur.NewsBlur
Version: 3.0 (3.0)
Code Type: ARM (Native)
Parent Process: launchd [1]
View gist:37133
USING: alien.syntax alien.c-types byte-arrays kernel strings ;
IN: uuid
LIBRARY: uuid
FUNCTION: void uuid_generate ( char[16] out ) ;
FUNCTION: void uuid_unparse ( char[16] out, char* out ) ;