이중 존재 찾기 및 Luhn의 알고리즘 적용

이 기사에서는 Perl Weekly Challenge #290의 두 가지 흥미로운 작업, 즉 배열에서 이중 존재를 확인하고 유효성 검사를 위해 Luhn 알고리즘을 구현하는 방법에 대해 설명합니다. Perl과 Go 모두에서 솔루션을 구현하겠습니다.

목차

• 이중 존재
• Luhn의 알고리즘
• 결론

이중 존재

첫 번째 작업은 다음과 같은 두 개의 인덱스 $i와 $j가 있는지 찾는 것입니다.

1. $i != $j
2. 0 <= ($i, $j) < scalar @ints
3. $ints[i] = 2 * $ints[j]

작업 설명

입력: 정수 배열, @ints.

출력: 조건이 충족되면 true이고, 그렇지 않으면 false입니다. 그렇지 않으면 거짓입니다.

예:

Input: @ints = (6, 2, 3, 3)
Output: true

For $i = 0, $j = 2
$ints[$i] = 6 => 2 * 3 =>  2 * $ints[$j]

Input: @ints = (3, 1, 4, 13)
Output: false

Input: @ints = (2, 1, 4, 2)
Output: true

For $i = 2, $j = 3
$ints[$i] = 4 => 2 * 2 =>  2 * $ints[$j]

해결책

Perl 구현
Perl 구현에서는 해시를 사용하여 표시된 정수를 추적하고 현재 숫자의 절반 또는 두 배가 해시에 존재하는지 확인합니다.

sub double_exist {
    my %seen;

    foreach my $num (@_) {
        return 1 if exists $seen{$num / 2} || exists $seen{$num * 2};
        $seen{$num} = 1;
    }

    return 0;
}

구현하기
Go 구현은 맵을 사용하여 고유한 정수를 추적하는 유사한 논리를 따릅니다.

func doubleExist(ints []int) bool {
    seen := make(map[int]bool)

    for _, num := range ints {
        if (num%2 == 0 && seen[num/2]) || seen[num*2] {
            return true
        }
        seen[num] = true
    }

    return false
}

Luhn의 알고리즘

두 번째 작업은 Luhn의 알고리즘을 구현하여 숫자가 아닌 문자를 무시하고 숫자 문자열의 유효성을 검사하는 것입니다. 마지막 숫자는 페이로드로 별도로 간주됩니다.

작업 설명

숫자(및 무시할 수 있는 다른 문자)가 포함된 문자열 str이 제공됩니다. 마지막 숫자는 페이로드로 간주되어 별도로 처리됩니다.

1. 오른쪽부터 세면서 나머지 숫자의 첫 번째, 세 번째 등의 값을 두 배로 늘립니다.
2. 이제 9보다 큰 각 값에 대해 해당 숫자의 합을 구합니다.
3. 올바른 검사 숫자는 모든 값의 합계에 더해 총 모듈로 10이 0이 되는 숫자입니다.

페이로드가 올바른 검사 숫자와 같으면 true를 반환합니다. 그렇지 않으면 false를 반환합니다.

예:

Input: "17893729974"
Output: true

Payload is 4.

Digits from the right:

7 * 2 = 14, sum = 5
9 = 9
9 * 2 = 18, sum = 9
2 = 2
7 * 2 = 14, sum = 5
3 = 3
9 * 2 = 18, sum = 9
8 = 8
7 * 2 = 14, sum = 5
1 = 1

Sum of all values = 56, so 4 must be added to bring the total mod 10 to zero. The payload is indeed 4.

Input: "4137 8947 1175 5904"
Output: true

Input: "4137 8974 1175 5904"
Output: false

해결책

Perl 구현
Perl 구현은 숫자가 아닌 문자를 무시하도록 입력 문자열을 처리한 다음 Luhn의 알고리즘을 적용하여 숫자의 유효성을 검사합니다.

sub luhn_check {
    my ($str) = @_;
    $str =~ s/[^0-9]//g;

    my $payload = substr($str, -1);
    my $sum = 0;
    my $length = length($str);

    for (my $i = 0; $i < $length - 1; $i++) {
        my $digit = substr($str, $length - 2 - $i, 1);
        if ($i % 2 == 0) {
            $digit *= 2;
            $digit -= 9 if $digit > 9;
        }
        $sum += $digit;
    }

    my $check_digit = (10 - ($sum % 10)) % 10;

    return $payload == $check_digit ? 1 : 0;
}

구현하기
Go 버전은 유니코드 패키지를 활용하여 숫자가 아닌 문자를 필터링하는 동일한 논리를 구현합니다.

func luhnCheck(str string) bool {
    sum := 0
    payload := 0
    digits := []int{}

    for _, char := range str {
        if unicode.IsDigit(char) {
            digit := int(char - '0')
            digits = append(digits, digit)
        }
    }

    if len(digits) == 0 {
        return false
    }

    payload = digits[len(digits)-1]

    for i := 0; i < len(digits)-1; i++ {
        digit := digits[i]
        if (len(digits)-2-i)%2 == 0 {
            digit *= 2
            if digit > 9 {
                digit -= 9
            }
        }
        sum += digit
    }

    checkDigit := (10 - (sum % 10)) % 10

    return payload == checkDigit
}

결론

이 기사에서는 배열에서 이중 존재를 찾는 것과 유효성 검사를 위해 Luhn의 알고리즘을 구현하는 두 가지 흥미로운 프로그래밍 과제를 살펴보았습니다. 이러한 작업은 다양한 프로그래밍 언어가 고유한 접근 방식으로 유사한 문제를 어떻게 해결할 수 있는지 강조합니다. 이러한 예가 여러분이 Perl과 Go에 대해 더 깊이 탐구하는 데 영감을 주기를 바랍니다!

GitHub에서 테스트를 포함한 전체 코드를 찾을 수 있습니다.

위 내용은 이중 존재 찾기 및 Luhn의 알고리즘 적용의 상세 내용입니다. 자세한 내용은 PHP 중국어 웹사이트의 기타 관련 기사를 참조하세요!