lnds

toques_y_famas [] _ _ = (0,0)
toques_y_famas (n:ns) (x:xs) ys 
  | n == x = (t,1+f) 
  | n `elem` ys = (t+1, f)
  | otherwise = (t,f)
  where (t,f) = (toques_y_famas ns xs ys)

lnds

for ((n,i) <- num.zipWithIndex; (m,j) <- sec.zipWithIndex) 
		yield if (n == m) if (i == j) 'F' else  'T'

lnds

for (it in accion.withIndex()) {
        if (!it.value.isDigit())
            return null
        if (it.index >= tam)
            return null
}

for ((i,n) in num.withIndex())
        for ((j,m) in sec.withIndex())
            if (n == m) {

lnds

for (i,c) in chars.enumerate() {
		if i >= tam {
			return nil
		} else if c < "0" || c > "9" {
			return nil
		} else {
			let digito = Int(String(c))!
			if num.contains(digito) {
				return nil
			}

lnds

for (i,c) in accion.chars().enumerate() {
	if !c.is_digit(10) { return Error } 
	else if i >= tam   { return Error } 
	else {
		let digito = c.to_digit(10).unwrap();
		if num.contains(&digito) { return Error }
		num.push(digito)
	}
}

lnds

num := make([]int, 0, tam)
for i, c := range accion {
	if !unicode.IsDigit(c) {
		return nil
	} else if i >= tam {
		return nil
	} else {
		digit := int (c - '0')
		for _, d := range num {
			if digit == d { return nil }

lnds

is_digit(C) when C >= $0, C=<$9 -> true;
is_digit(_) -> false.

lnds

Digitos = lists:all(fun (X) -> is_digit(X) end, Entrada), 
	if Digitos =:= true -> unicos(to_num(Entrada), Tam, Len) ; 
	   Digitos =:= false -> [] end.

lnds

(defn validar [tam num]
  (if (and  (every? #(Character/isDigit %) num)) 
      (let [cuenta-unicos (count (distinct num))]
        (and 
          (= tam cuenta-unicos)
          (= (count num) cuenta-unicos)))))    
    (map #(Character/digit % 10) (seq num))
    nil))

lnds

(defn validar [tam num]
  (if (and  (solo-digitos num) (largo-esperado tam num))    
    (map #(Character/digit % 10) (seq num))
    nil))