- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
- 21
- 22
- 23
- 24
- 25
- 26
- 27
- 28
- 29
- 30
let rnd = System.Random()
// создаём строку, содержащую 10 случайных чисел, разделённых пробелами
let sourceString = System.String.Join (" ", [1..10] |> List.map (fun x -> rnd.Next(1, 10).ToString()))
// функция, удаляющая повторяющиеся числа из строки
let removeDuplicate str =
// разбиваем строку на отдельные числа
let sourceList = sourceString.Split ([|' '|]) |> Array.toList |> List.map (fun x -> System.Int32.Parse (x))
// список, в который будем ложить неповторяющиеся элементы
let newList = ref []
// проходим по всем элементам исходного списка
List.iter
(fun x ->
// если элемента в новом списке ещё нет, кладём его туда
if (List.exists (fun y -> y = x) !newList) = false
then (newList := List.append !newList [x]))
sourceList
// получаем строку из списка с неповторяющимися элементами
System.String.Join (" ", !newList |> List.map (fun x -> x.ToString()))
// получаем новую строку
let resultString = removeDuplicate sourceString
// выводим старую и новую строку
printfn "%s" sourceString
printfn "%s" resultString
Lure Of Chaos 01.01.2011 15:34 # 0
понаехали тут (ц)
xXx_totalwar 01.01.2011 16:05 # 0
только сгущеночных петушков и не хватало
guest 01.01.2011 16:57 # −3
guest 01.01.2011 17:13 # +1
KirAmp 01.01.2011 18:49 # 0
guest 01.01.2011 18:51 # −2
Lure Of Chaos 01.01.2011 19:08 # +2
KirAmp 01.01.2011 18:51 # +1
guest 01.01.2011 18:54 # −5
guest 01.01.2011 18:55 # −3
fixed
Lure Of Chaos 01.01.2011 19:10 # +1
TarasB 01.01.2011 19:28 # +1
bugmenot 01.01.2011 17:41 # 0
guest 01.01.2011 18:28 # −5
Lure Of Chaos 01.01.2011 19:10 # 0
guest 01.01.2011 19:11 # −2
Lure Of Chaos 01.01.2011 19:20 # −1
guest 01.01.2011 19:03 # −1
Lure Of Chaos 01.01.2011 19:11 # −1
guest 01.01.2011 19:23 # −1
Lure Of Chaos 01.01.2011 19:28 # −1
guest 01.01.2011 19:33 # −1
guest 01.01.2011 20:58 # −1
guest 01.01.2011 21:00 # −1
guest 01.01.2011 21:07 # +2
guest 01.01.2011 20:59 # +1
1) По теме: Ложить - класть, блядь, КЛАСТЬ!!!!!111
2) Забаньте анонимусов до 21.12.2012
guest 01.01.2011 21:04 # 0
Как свет выключат - анон в Интернет выходить перестанет.
guest 01.01.2011 21:08 # +1
guest 02.01.2011 16:50 # 0
Lure Of Chaos 02.01.2011 19:13 # 0
koodeer 02.01.2011 00:10 # 0
guest 02.01.2011 00:16 # 0
лопнишь деточка
guest 02.01.2011 00:36 # −1
psina-from-ua 02.01.2011 03:45 # 0
guest 02.01.2011 11:49 # +1
вам пофигу что стоит до шарпа, це или фэ, да?
guest 02.01.2011 13:56 # 0
guest 02.01.2011 14:49 # 0