WANTED:
Python
tcl
OCaml
php
Prolog
Найдено 754 результата
- 08 авг 2002, 18:53
- Форум: Программирование
- Тема: About programming :))
- Ответы: 50
- Просмотры: 29581
- 08 авг 2002, 18:52
- Форум: Программирование
- Тема: About programming :))
- Ответы: 50
- Просмотры: 29581
Форум о программировании ;-))
;; Cxема еще раз - в прошлом посте смайлик сработал
(define factorial
(lambda
(a)
(if
(<= a 0)
1
(* a (factorial (- a 1)))
)
)
)
(display "factorial of 4: ")
(display (factorial 4))
(newline)
(define factorial
(lambda
(a)
(if
(<= a 0)
1
(* a (factorial (- a 1)))
)
)
)
(display "factorial of 4: ")
(display (factorial 4))
(newline)
- 08 авг 2002, 18:46
- Форум: Программирование
- Тема: About programming :))
- Ответы: 50
- Просмотры: 29581
Форум о программировании ;-))
;; вариант на Scheme
(define factorial
(lambda
(a)
(if
(<= a 0)
1
(* a (factorial (- a 1)))
)
)
)
(display (factorial 6))
(newline)
(define factorial
(lambda
(a)
(if
(<= a 0)
1
(* a (factorial (- a 1)))
)
)
)
(display (factorial 6))
(newline)
- 08 авг 2002, 18:42
- Форум: Программирование
- Тема: About programming :))
- Ответы: 50
- Просмотры: 29581
Форум о программировании ;-))
-- 3 способы на Haskell
-- самый неэффективный однако
fac1 :: Int -> Int
fac1 n = product[1..n]
fac2 :: Int -> Int
fac2 0 = 1
fac2 (n+1) = (n+1) * fac3 n
-- самый эффективный
fac3 :: Int -> Int
fac3 0 = 1
fac3 n = n * fac2 (n-1)
-- самый неэффективный однако
fac1 :: Int -> Int
fac1 n = product[1..n]
fac2 :: Int -> Int
fac2 0 = 1
fac2 (n+1) = (n+1) * fac3 n
-- самый эффективный
fac3 :: Int -> Int
fac3 0 = 1
fac3 n = n * fac2 (n-1)
- 08 авг 2002, 18:32
- Форум: Программирование
- Тема: About programming :))
- Ответы: 50
- Просмотры: 29581
Форум о программировании ;-))
#!/usr/bin/perl
sub factorial {
my $n = shift ; # ну шо ета за argument passing?
if ($n==0){
1
}else{
$n * factorial($n-1)
}
}
print factorial(6), "\n";
sub factorial {
my $n = shift ; # ну шо ета за argument passing?
if ($n==0){
1
}else{
$n * factorial($n-1)
}
}
print factorial(6), "\n";
- 08 авг 2002, 18:24
- Форум: Программирование
- Тема: About programming :))
- Ответы: 50
- Просмотры: 29581
Форум о программировании ;-))
#!/bin/sh
# Шелл - это еще и язык программирования )
function factorial(){
if test $1 = "0"
then
echo 1
else
echo $(($1*`factorial $(($1-1))`))
fi
}
factorial 6
# Шелл - это еще и язык программирования )
function factorial(){
if test $1 = "0"
then
echo 1
else
echo $(($1*`factorial $(($1-1))`))
fi
}
factorial 6
- 08 авг 2002, 18:23
- Форум: Программирование
- Тема: About programming :))
- Ответы: 50
- Просмотры: 29581
Форум о программировании ;-))
class Fact { // факториал на Java
public static void main(String[] args){
System.out.println(getFactorial(6));
}
private static int getFactorial(int n){
if (n == 0){
return 1;
} else {
return n * (getFactorial(n-1));
}
}
}
public static void main(String[] args){
System.out.println(getFactorial(6));
}
private static int getFactorial(int n){
if (n == 0){
return 1;
} else {
return n * (getFactorial(n-1));
}
}
}
- 06 авг 2002, 11:24
- Форум: Общий форум
- Тема: Давайте создадим форум Programming
- Ответы: 11
- Просмотры: 9871
Давайте создадим форум Programming
Ну так создавайте темы в Общем Форуме пока
- 05 авг 2002, 12:11
- Форум: Линуксовка
- Тема: Линуксовка - см. сабж
- Ответы: 148
- Просмотры: 92913
Как насчет линуксовки?
Zotrix прибыл из Жлобина, и опоздал на поезд, так как я утащил его на MIIB
- 03 авг 2002, 12:22
- Форум: Форум для чайников
- Тема: Самое начало - Самое начало
- Ответы: 20
- Просмотры: 16167
- 03 авг 2002, 11:45
- Форум: Дистрибутивы
- Тема: Woody vs Sid - Помогите с выбором
- Ответы: 17
- Просмотры: 29474
- 03 авг 2002, 11:36
- Форум: Дистрибутивы
- Тема: Woody vs Sid - Помогите с выбором
- Ответы: 17
- Просмотры: 29474
Woody vs Sid
Ты неправильно меня понял ;)
Я не тебя имел ввиду.
У нас в Минске уже есть Вуди, так что
кидай его качать, мне перепишут,
я тебе запишу.
Я не тебя имел ввиду.
У нас в Минске уже есть Вуди, так что
кидай его качать, мне перепишут,
я тебе запишу.
- 03 авг 2002, 01:46
- Форум: Дистрибутивы
- Тема: Woody vs Sid - Помогите с выбором
- Ответы: 17
- Просмотры: 29474
Woody vs Sid
И как это я мог пропустить форум о Дебиане ? ;) Добавлю к Atetz. Я пользую Woody уже полгода. Woody стал stable меньше месяца назад. До этого он был Testing, а Stable был Potato. Вот эту потату я и пользовал довольно долго, причем на вуди я перешел не имея ни одного диска. В Дебиане с одного дистра ...
- 28 июл 2002, 18:54
- Форум: Linux, безопасность, сети
- Тема: Web server on linux
- Ответы: 7
- Просмотры: 5869
Web server on linux
Прожорливость Apache можно регулировать
- 27 июл 2002, 01:02
- Форум: Общий форум
- Тема: The Linux Counter - призыв
- Ответы: 10
- Просмотры: 8415
The Linux Counter - призыв
Результаты налицо:
То есть мы обогнали РоссиюBelarus is no. 93 in the density statistics, with 13.30 users/Mpop
Belarus needs 6 more users to pass Netherlands Antilles and become no. 92
Russia needs 7 more users to pass Belarus and push it to no. 94