JAVA每日一题01

5.times do
 arr=(1..49).to_a
 p (0..5).inject([]){|result,index| result << arr.delete_at(rand(49-index))}
end

[41, 18, 15, 43, 40, 37]
[18, 26, 33, 15, 16, 27]
[14, 44, 49, 42, 8, 20]
[9, 42, 30, 28, 48, 19]
[11, 39, 21, 14, 35, 28]

import Random
import Data.List
import Control.Monad 

randomSelectFrom size ls = randomMove size [] ls
    where randomMove 0 rs xs = print rs
          randomMove n rs xs = do
              idx <- randomRIO (0, length xs - 1)
              let em =  xs !! idx
              randomMove (n-1) (em:rs) (delete em xs)

main = sequence$ replicate 5 (randomSelectFrom 6 [1..49])

	(1 to 5) foreach { _ =>
		println(List.range(1,50).sort{ (_,_) => Math.random > 0.5}.take(6))
	}

import static java.util.Collections.*;
import java.util.*;

public class RandomS {
	public static void main(String[] args){
		for(int c = 0; c < 5;c ++){
			List<Integer> lst = new ArrayList<Integer>();
			for(int n = 1;n <= 49;n ++) lst.add(n);
			shuffle(lst);
			System.out.println(lst.subList(0,6));
		}
	}
}

import Random
import Data.List
import Control.Monad

shuffle ls@(x:xs) = do
    elm <- liftM (ls !!) (randomRIO(0 ,length xs))  
    liftM (elm:) (shuffle$  delete elm ls)
shuffle _         = return[]

main = sequence [shuffle[1..49] >>= print.take 6 | c <- [1..5]]

5.times{ p((1..49).sort_by{rand}[1..7]) }