30 lines
484 B
Perl
30 lines
484 B
Perl
|
seeds([79,14,55,13]).
|
||
|
|
|
||
|
|
seed_to_soil([
|
||
|
|
[50,98,2],
|
||
|
|
[52,50,48]]).
|
||
|
|
soil_to_fertilizer([
|
||
|
|
[0,15,37],
|
||
|
|
[37,52,2],
|
||
|
|
[39,0,15]]).
|
||
|
|
fertilizer_to_water([
|
||
|
|
[49,53,8],
|
||
|
|
[0,11,42],
|
||
|
|
[42,0,7],
|
||
|
|
[57,7,4]]).
|
||
|
|
water_to_light([
|
||
|
|
[88,18,7],
|
||
|
|
[18,25,70]]).
|
||
|
|
light_to_temperature([
|
||
|
|
[45,77,23],
|
||
|
|
[81,45,19],
|
||
|
|
[68,64,13]]).
|
||
|
|
temperature_to_humidity([
|
||
|
|
[0,69,1],
|
||
|
|
[1,0,69]]).
|
||
|
|
humidity_to_location([
|
||
|
|
[60,56,37],
|
||
|
|
[56,93,4]]).
|
||
|
|
|
||
|
|
% X = [[39, 0, 15], [0, 15, 35], [37, 50, 2], [54, 52, 46], [35, 98, 2], [100, 100, 4294967195]] ;
|