From 77cfffee6177fb0421fa0fce15d6a1875bde4816 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?David=20W=C3=BChrer?= <def@gmx.at>
Date: Sat, 18 May 2024 21:04:34 +0200
Subject: manuals, sum-down, radix

---
 ean13 | 22 ----------------------
 1 file changed, 22 deletions(-)
 delete mode 100755 ean13

(limited to 'ean13')

diff --git a/ean13 b/ean13
deleted file mode 100755
index 6fd125a..0000000
--- a/ean13
+++ /dev/null
@@ -1,22 +0,0 @@
-#!/bin/bash
-while [[ $1 ]]
-do
-[[ ${#1} -eq 13 ]] || [[ ${#1} -eq 12 ]] || {
-	printf >&2 'length is %d, should be 13\n' ${#1}
-	exit 1
-}
-declare -i checksum=0
-declare -i factor=1
-for i in {0..11}
-do
-	v=${1:i:1}
-	checksum=$((checksum+factor*v))
-	factor=$((factor^2))
-#printf >&2 'v: %s : cs=%d f=%d\n' "$v" $checksum $factor
-done
-if [[ ${#1} -eq 12 ]]
-then	echo "$1"$((10-checksum%10))
-else	[[ $((10-checksum%10)) -eq ${1:12} ]] || exit
-fi
-shift
-done
-- 
cgit v1.2.3