> 1 <

Автор Сообщение

elementx

Members


Статус

2 сообщений

Где: Russia
Род занятий:
Возраст:

#6212   2012-06-19 00:45 GMT+3 часа(ов)      
Добрый вечер, прошу помочь с задачей: "Сгенерировать все размещения с повторениями из N по К."
Диалект - Scheme

bokunopico

Members


Статус

54 сообщений

Где: Russia Нижний Новгород
Род занятий:
Возраст:

#6213   2012-06-19 02:05 GMT+3 часа(ов)      
#lang racket
(define (perm s k)
(cond ((zero? k) '(()))
(else
(let splice ((l '()) (m (car s)) (r (cdr s)))
(append
(map (lambda (x) (cons m x)) (perm s (- k 1)))
(if (null? r) '()
(splice (cons m l) (car r) (cdr r))))))))
 
 
> (perm '(1 2 3) 1)
'((1) (2) (3))
> (perm '(1 2 3) 2)
'((1 1) (1 2) (1 3) (2 1) (2 2) (2 3) (3 1) (3 2) (3 3))

elementx

Members


Статус

2 сообщений

Где: Russia
Род занятий:
Возраст:

#6214   2012-06-19 02:24 GMT+3 часа(ов)      
Спасибо большое
> 1 <


Онлайн :

0 пользователь(ей), 55 гость(ей) :