RM
Я понял. Надо оставить толь yandex'овские ns сервера. Почему-то остались ns от хочетра и когда резолвится через яндекс, то все ок, когда через ns сервера регистратора, то там настроек нет и никто не видит нужных ip
Size: a a a
2017 May 01
RM
никто не хочет ip выдавать
@merzavets @troyanov спасибо, вы очень помогли.
2017 May 02
RM
let rec fib n a b = match n with
| 0 -> a
| 1 -> b
| _ -> fib (n - 1) b (a + b)
как можно сократить?
🦉
let rec fib n a b = match n with
| 0 -> a
| 1 -> b
| _ -> fib (n - 1) b (a + b)
как можно сократить?
let rec fact n = if n=1 then 1 else n*fact(n-1)🦉
let rec fib n a b = match n with
| 0 -> a
| 1 -> b
| _ -> fib (n - 1) b (a + b)
как можно сократить?
ну.. или..
let fact = let rec fact' f = function | 1 -> f 1 | n -> fact' (f>>((*)n)) (n-1) fact' (fun x->x)λ
Но это факт
λ
А там фиб
λ
1 1 2 3 5 8 13 21
λ
можно в принципе и факториал туда поставить
RM
1 1 2 3 5 8 13 21
ну у тебя там более общий ряд задан ты же можешь любые нчальные a b передавать
λ
це так
RM
но все же что-то смущает
RM
если убрать общую ф-цию и оставить именно фибоначи?
λ
а можн рили чз function записать как однострочник
λ
хотя тада не влезет
RM
одностроник не нужен , но мне кажется что
выглядит лучше
let rec fib = function
| 0 | 1 -> 1
| n -> fib (n-1) + fib (n-2)
выглядит лучше
RM
ну или можно разнести
для наглядности
| 0 -> 1
| 1 -> 1
для наглядности
RM
одностроник не нужен , но мне кажется что
выглядит лучше
let rec fib = function
| 0 | 1 -> 1
| n -> fib (n-1) + fib (n-2)
выглядит лучше
я говорю только про внешнюю привлекательность кода, @Worldbeater твой код конечно более логичный