require 'color' p Color::RGB::Red.adjust_saturation(10) p Color::RGB::Green.adjust_saturation(10) p Color::RGB::Blue.adjust_saturation(10) p Color::RGB::Red.adjust_saturation(-10) p Color::RGB::Green.adjust_saturation(-10) p Color::RGB::Bl…

Java FAQ：S019 Q-20http://www.nextindex.net/java/thread/waitnotify2.html を動作させてみた Consumer: 0 Producer: 0 Consumer: 1 Producer: 1 Consumer: 2 Producer: 2 Consumer: 3 Producer: 3 Consumer: 4 Producer: 4

#!/usr/bin/env perl use strict; use Parse::RecDescent; use Data::Dumper; my $grammar = q{ inputs : ('a')(s) { print Data::Dumper::Dumper($item[1]); } }; my $parse = new Parse::RecDescent ($grammar); while (<>) { defined $parse->inputs($_) …