#!/usr/bin/perl -I./lib
use strict;
use bigint;
use Test::More tests => 2;
use MyMath;
is(MyMath->new->fib(100), MyMath::fib(100), "two modes");
is(MyMath->new->fib(100), 354224848179261915075, "fib(100)");
а вы пробовали восстанавливаться?
я имею в виду установку системы из ТМ на голый жесткий диск.
то есть в установщике я смогу вписать «Defaults write com.apple.systempreferences TMShowUnsupportedNetworkVolumes 1 »?
Alladin
Cannon Fodder
MK
Earthworm Jam
Jurassic Park
Road Rush
PC:
Quake I
Doom I, II
Bloodrayne
World of Warcraft II
Rise of Nations
Prey
GTA Vice City
Farenheit
Settlers IV
recurrent ƒ => { (0) => λ { 0 }, (1) => λ { 1 }, (N) => λ { ƒ(n-1) + ƒ(n-2) }, };но не очень удобно будет что n и N различаются
sub N { '' }
sub n { $_ }
package MyMath; our $VERSION = '0.01'; use strict; use bigint; use Recurrent; sub new { bless {}, shift; } recurrent 'fib' => { arg(0) => lambda { my($n) = @_; return 0 }, arg(1) => lambda { my($n) = @_; return 1 }, arg(n) => lambda { my($n) = @_; return fib($n-1) + fib($n-2) }, }; 1;ok 1 — two modes
ok 2 — fib(100)
я имею в виду установку системы из ТМ на голый жесткий диск.
то есть в установщике я смогу вписать «Defaults write com.apple.systempreferences TMShowUnsupportedNetworkVolumes 1 »?
я так понимаю SSD просто в роли кеша выступает?