Check Iranian National Code Validity - بررسی صحت کد ملی ایرانی - Clojure, C#, F#, Ruby, JavaScript, Dart, Python, Scala, Java 8, PHP, C, Go, Swift, Kotlin, Groovy, Rust, Haskell, Erlang, Elixir, PowerQuery M Language, VBA, R, Lua, Fortran, Pascal/Delphi

gistfile1.cs

// Check Iranian National Code Validity - Clojure, C#, F#, Ruby, JavaScript, Dart, Python, Scala, Java 8, PHP, C, Go, Swift, Kotlin, Groovy, Rust, Haskell, Erlang, Elixir, Power Query M Language, VBA, R, Lua, Fortran, Pascal/Delphi
// بررسی صحت کد ملی ایران - کلوژر، سی‌شارپ، اف‌شارپ، روبی، جاوااسکریپت، دارت، پایتون، اسکالا، جاوا ۸، پی‌اچ‌پی، سی، گو، سوئیفت، کاتلین، گرووی، راست، هسکل، ارلنگ، الکسیر، پاورکوئری ام، وی‌بی ای، آر، لوآ، فرترن، پاسکال/دلفی

// در نسخه‌های قبل یکسان بودن اعداد نا معتبر تشخیص داده می‌شد ولی
// اعداد یکسان نامعتبر نیست https://web.archive.org/web/20170706081048/http://www.fardanews.com/fa/news/127747/رندترین-شماره-ملی-بلای-جان-صاحبش-شد

// بعضی از پیاده‌سازی‌ها سریع نیستند، می‌توانید نسخهٔ خود را بر پایهٔ
// نسخهٔ سی یا گو ایجاد کنید که بهترین سرعت را داشته باشد

/**
 * @author Ebrahim Byagowi (2013-)
 * @license: Public Domain
 */

// Clojure
(defn valid-iran-code? [input]
  (if (re-matches #"^\d{10}$" input)
    (let
      [check (Integer/parseInt (subs input 9 10))
       sum (mod (reduce + (map (fn [x] (* (Integer/parseInt
                                           (subs 
                                            input x (+ x 1)))
                                          (- 10 x)))
                               (range 9))) 11)]
      (if (< sum 2) (== check sum) (== (+ check sum) 11))
    false))

// Ruby
def is_valid_iran_code(input)
  return false if /^\d{10}$/ !~ input

  check = Integer(input[9])

  s = (0..8).sum {|x| Integer(input[x]) * (10 - x)} % 11
  s < 2 ? check == s : check + s == 11
end

// C#
using System.Text.RegularExpressions;
public static bool IsValidIranianNationalCode(string input)
{
    if (!Regex.IsMatch(input, @"^\d{10}$"))
        return false;

    var check = Convert.ToInt32(input.Substring(9, 1));
    var sum = Enumerable.Range(0, 9)
        .Select(x => Convert.ToInt32(input.Substring(x, 1)) * (10 - x))
        .Sum() % 11;

    return sum < 2 ? check == sum : check + sum == 11;
}

// F#
open System.Text.RegularExpressions
let isValidIranianNationalCode input =
    if Regex.IsMatch(input, @"^\d{10}$") then
        let check = Convert.ToInt32(input.Substring(9, 1))
        let sum = (seq { 0 .. 8 }
                   |> Seq.map (fun x -> Convert.ToInt32(input.Substring(x, 1)) * (10 - x))
                   |> Seq.sum) % 11
        if sum < 2 then check = sum else check + sum = 11
    else
        false

// JavaScript
function isValidIranianNationalCode(input) {
    if (!/^\d{10}$/.test(input)) return false;
    const check = +input[9];
    const sum = input.split('').slice(0, 9).reduce((acc, x, i) => acc + +x * (10 - i), 0) % 11;
    return sum < 2 ? check === sum : check + sum === 11;
}

// Dart
bool isValidIranianNationalCode(String input) {
  if (!RegExp("^\\d{10}").hasMatch(input)) return false;
  final check = int.parse(input[9]);
  final sum = Iterable<int>.generate(9).map((x) => int.parse(input[x]) * (10 - x)).reduce((x, y) => x + y) % 11;
  return sum < 2 ? check == sum : check + sum == 11;
}

// C
bool isValidIranianNationalCode(const char *input) {
    for (unsigned i = 0; i < 10; ++i) if (input[i] < '0' || input[i] > '9') return false;
    if (input[10]) return false;
    unsigned check = input[9] - '0';
    unsigned sum = 0;
    for (unsigned i = 0; i < 9; ++i) sum += (int)(input[i] - '0') * (10 - i);
    sum %= 11;
    return sum < 2 ? check == sum : check + sum == 11;
}

// Go
func isValidIranianNationalCode(input string) bool {
	for i := 0; i < 10; i++ {
		if input[i] < '0' || input[i] > '9' {
			return false
		}
	}
	check := int(input[9] - '0')
	sum := 0
	for i := 0; i < 9; i++ {
		sum += int(input[i]-'0') * (10 - i)
	}
	sum %= 11
	return (sum < 2 && check == sum) || (sum >= 2 && check+sum == 11)
}

// Python
import re
def is_valid_iran_code(input):
    if not re.search(r'^\d{10}$', input): return False
    check = int(input[9])
    s = sum(int(input[x]) * (10 - x) for x in range(9)) % 11
    return check == s if s < 2 else check + s == 11

// Scala
def isValidIranianNationalCode(input: String) = {
  val pattern = """^(\d{10})$""".r
  input match {
    case pattern(_) =>
      val check = input.substring(9, 10).toInt
      val sum = (0 to 8)
        .map(x => input.substring(x, x + 1).toInt * (10 - x))
        .sum % 11

      if (sum < 2) check == sum else check + sum == 11
    case _ => false
  }
}

// Java 8
import java.util.stream.Streams;
import java.util.function.IntUnaryOperator;
public static boolean isValidIranianNationalCode(String input) {
    if (!input.matches("^\\d{10}$"))
        return false;

    int check = Integer.parseInt(input.substring(9, 10));

    int sum = IntStream.range(0, 9)
            .map(x -> Integer.parseInt(input.substring(x, x + 1)) * (10 - x))
            .sum() % 11;

    return sum < 2 ? check == sum : check + sum == 11;
}

// PHP
function isValidIranianNationalCode($input) {
    if (!preg_match("/^\d{10}$/", $input)) {
        return false;
    }

    $check = (int) $input[9];
    $sum = array_sum(array_map(function ($x) use ($input) {
        return ((int) $input[$x]) * (10 - $x);
    }, range(0, 8))) % 11;

    return $sum < 2 ? $check == $sum : $check + $sum == 11;
}

// Swift, based on @farzadshbfn work but modified a little, tested with Swift 5.3.1
func isValidIranianNationalCode(input: String) -> Bool {
    let digits = input.compactMap { Int(String($0)) }
    guard digits.count == 10 && digits.count == input.count else {
        return false
    }
    
    let check = digits[9]
    let sum = digits[0 ..< 9].enumerated().reduce(0) { $0 + $1.element * (10 - $1.offset) } % 11
    
    return sum < 2 ? check == sum : check + sum == 11
}

// Kotlin
fun isValidIranianNationalCode(input: String) = input.takeIf { it.length == 10 }
    ?.mapNotNull(Char::digitToIntOrNull)?.takeIf { it.size == 10 }?.let {
        val check = it[9]
        val sum = it.slice(0..8).mapIndexed { i, x -> x * (10 - i) }.sum() % 11
        if (sum < 2) check == sum else check + sum == 11
    } ?: false

// Groovy, based on @mehrali work
boolean isValidIranianNationalCode(String input) {
    if (!input?.matches('^\\d{10}$'))
        return false

    int check = input[9].toInteger()
    int sum = (0..8).sum({ input[it].toInteger() * (10 - it) }) % 11
    return sum < 2 ? check == sum : check + sum == 11
}

// Rust
fn is_valid_iranian_national_code(s: &str) -> bool {
    let digits: Vec<u32> = s.chars().filter_map(|x| x.to_digit(10)).collect();
    if s.len() != 10 || digits.len() != 10 {
        return false;
    }
    let check = digits[9];
    let sum = (0..9).map(|x| digits[x] * (10 - x) as u32).sum::<u32>() % 11;
    if sum < 2 {
        check == sum
    } else {
        check + sum == 11
    }
}

// Haskell, contributed by @hzamani
import Data.Char

isValidNationalCode code =
    length code == 10 && all isDigit code && if s < 2 then check == s else check + s == 11
    where
        digits = map digitToInt code
        check = last digits        
        s = sum (map (\(d, i) -> d * (10 - i)) $ digits `zip` [0..8]) `mod` 11

// Erlang, contributed by @hzamani
is_valid_national_code(Code) ->
    length(Code) == 10
    andalso lists:all(fun(D) -> $0 =< D andalso D =< $9 end, Code)
    andalso begin
        ToDigit = fun(Char) -> Char - $0 end,
        S = lists:sum(lists:map(fun({I, D}) -> D * (10 - I) end, lists:zip(lists:seq(0, 8), lists:droplast(lists:map(ToDigit, Code))))) rem 11,
        Check = ToDigit(lists:last(Code)),
        if
            S < 2 -> Check == S;
            true  -> Check + S == 11
        end
    end.

// Elixir, contributed by @hzamani
fn input ->
    if input =~ ~r/^\d{10}$/ do
        [check | digits] =
            input
            |> String.split("", trim: true)
            |> Enum.map(&String.to_integer/1)
            |> Enum.reverse
        s =
            digits
            |> Enum.with_index(2)
            |> Enum.map(fn {digit, i} -> digit * i end)
            |> Enum.sum
            |> rem(11)
         if s < 2 do check == s else check + s == 11 end
    else
        false
    end
end

// PowerQuery M Language, in a collaboration with Calak
(input as text) as logical =>

let
    check = Number.From(Text.End(input, 1)),
    s = Number.Mod(List.Sum(List.Transform({0..8}, each (10 - _) * Number.From(Text.At(input, _)))), 11)

in Text.Length(input) = 10 and
   Text.Select(input, {"0".."9"}) = input and
   (if s < 2 then check = s else check + s = 11)
 
// VBA, in a collaboration with Calak
Public Function IsValidIranianNationalCode(code As String) As Boolean
   If Not code Like String(10, "#") Then Exit Function
   Dim check As Byte, i As Byte, s As Integer
   check = Mid(code, 10)
   For i = 1 To 9
      s = s + (11 - i) * Mid(code, i, 1)
   Next i
   s = s Mod 11
   IsValidIranianNationalCode = IIf(s < 2, check = s, check + s = 11)
End Function

// R, by Calak
is_valid_iran_code <- function(input) {
  if (!grepl('^[0-9]{10}$', input)) return (FALSE)
  check <- as.integer(substr(input, 10, 10))
  s <- t(10:2) %*% as.integer(unlist(strsplit(input, "")))[-10] %% 11
  return (if (s < 2) check == s else check + s == 11)
}

// Lua
function is_valid_iranian_national_code(input)
  if input:match(string.rep("%d", 10)) ~= input then return false end
  local check = tonumber(input:sub(10, 10))
  local sum = 0
  for i = 1, 9 do
    sum = sum + (11 - i) * tonumber(input:sub(index, index))
  end
  sum = sum % 11
  return (sum < 2) and (check == sum) or (check + sum == 11)
end

// Fortran, by Calak
logical pure function is_valid_iranian_national_code(input)
    character(10), intent(in) :: input; integer :: check, i, s
    integer, parameter :: zero = ichar("0")
    is_valid_iranian_national_code = .false.
    if (verify(input, "0123456789") /= 0) return
    check = ichar(input(10:)) - zero
    s = mod(sum((/ ((11 - i) * (ichar(input(i:i)) - zero), i = 1, 9) /)), 11)
    is_valid_iranian_national_code = merge(check == s, check + s == 11, s < 2)
end function is_valid_iranian_national_code

// Pascal/Delphi, by Calak
function isValidIranianNationalCode(input: string): boolean;
   const s: integer = 0;
   var check, i: byte;
begin
   isValidIranianNationalCode := false;
   if ord(input[0]) <> 10 then exit;
   for i := 1 to 10 do if not (input[i] in ['0'..'9']) then exit;
   val(input[10], check);
   for i := 1 to 9 do inc(s, (11 - i) * (ord(input[i]) - ord('0')));
   s := s mod 11;
   isValidIranianNationalCode := ((s < 2) and (check = s) or (s >= 2) and (check + s = 11));
end;

Scala code doesn't work. """^\d{10}$""".r should become """^(\d{10})$""".r.

عالی دمت گرم واقعا زحمت کشیدی :-)

@Lithium-HD
Your code doesn't work in Swift 3!

thanks,
very good!

You are hero !!!

Excellent! thanks a lot.

Thank You! it's very helpful

سپاسگزار از زحمات شما، عالی بود

بعد از سال‌ها این اسکریپت دوباره به کارم آمد و نسخهٔ کاتلینش را اضافه کردم :)

In ES6, the fill method needs has 1-3 arguments. you need to change Array(9).fill() to Array(9).fill(undefined).
Or I prefer to use this code instead:

Array.from(new Array(9), (_, i) => +input[i] * (10 - i)).reduce((x, y) => x + y) % 11

@dehghani-mehdi @iMojtaba @aghasoroush توضیح بالای کد را یک بررسی مجدد کنید، ممنونم

@mehrali @sparse91 اعمال شد :)

ورژن جاوااسکریپت کار نمیکنه! هر چی میدی غلط تشخیص میده حتی ۱۱۱۱۱۱۱۱۱۱

لطفاً از نوع رشته ارسال کنید چون بعضی از شماره ملی‌ها دارای صفر در اول هستند و اعداد به نظر ورودی درستی نباشن برای همچین کاری، ممنون

ممنونم
توی کنسول حل شد اما توی پروژم به طرز عجیبی همچنان نمیشه
مشکل هم از همون تعداد اوله با اینکه دقیقا تعداد ارقامش ۱۰ تاست ولی بازم فالس میده

مشکلم حل شد
مشکل از اونجا بود که وقتی از
template engine
استفاده میکنی مرورگر بک اسلش ها رو اسکیپ میکنه
باید با همچین حالتی بنویسی تا اوکی بشه
/^\\d{10}$/

if (!/^\d{10}$/.test(input)) ===> if (!/^\\d{10}$/.test(input))

این کد اصلی این صفحه نیست، شرط اعداد برابر نادرست است (و این بدترین شیوهٔ بررسی آن است، می‌توان آن را در همان عبارت باقاعدهٔ اصلی چا کرد) و در بالای صفحهٔ توضیح داده شده که چرا، اگر کاربرتان نمی‌خواهد اعداد واقعی دهد چه این شرط را بگذارید چه نه به شما اعداد واقعی نخواهد داد و آخر راهی برای دادن اعداد اشتباه پیدا خواهد کرد

Hi Ebrahim.
Thanks for share this code with us.But it has one problem for java code.
I run my test and i found this problem.
For nationalCode = ''0000000000", "1111111111" this code return True But should return false.

Why it should, it was doing but removed after http://www.fardanews.com/fa/news/127747 years ago

سلام گرامی خواستید دو کد جاوااسکریپت موجود در همین صفحه که همین کار را با تعداد کمتری دستور و
http://www.fardanews.com/fa/news/127747
این خبر را هم نگاهی بیاندازید، عملکرد پد
https://developer.mozilla.org/en-US/docs/Web/JavaScript/Reference/Global_Objects/String/padStart
هم مدت خوبی است به مرورگرها اضافه شده خواستید می‌توانید از آن استفاده کنید، ممنونم

ممنون
درسته
خودم از همین استفاده می کنیم
برای تایپ اسکریپتش زدم

Thx

ممنون .

اسکریپتی هست که بشه احتمالشو بررسی کرد ؟

ینی مثلا یه عددی بین صفر تا یک بده بگه که چقدر این میتونه شبیه به کدملی باشه .