User talk:TimToady: Difference between revisions

Line 51:

I've seen your change on [[IBAN]] and I wondered if it was possible to define it as a SubSet of Str. I don't know much about SubSet but I thought it might be a nice use-case, as a IBAN could be entered as a string literal and be considered as an IBAN kind of automatically.--[[User:Grondilu|Grondilu]] ([[User talk:Grondilu|talk]]) 00:13, 19 April 2013 (UTC)

:Hi. Me again. I've just realized it's actually easy to do:

:<lang perl6>subset IBAN of Str where -> Str $iban is copy {

my %len = <

AD 24 AE 23 AL 28 AT 20 AZ 28 BA 20 BE 16 BG 22 BH 22 BR 29 CH 21

CR 21 CY 28 CZ 24 DE 22 DK 18 DO 28 EE 20 ES 24 FI 18 FO 18 FR 27

GB 22 GE 22 GI 23 GL 18 GR 27 GT 28 HR 21 HU 28 IE 22 IL 23 IS 26

IT 27 KW 30 KZ 20 LB 28 LI 21 LT 20 LU 20 LV 21 MC 27 MD 24 ME 22

MK 19 MR 27 MT 31 MU 30 NL 18 NO 15 PK 24 PL 28 PS 29 PT 25 RO 24

RS 22 SA 24 SE 24 SI 19 SK 24 SM 27 TN 24 TR 26 VG 24

>;

$iban ~~ s:g/\s//;

return False if $iban ~~ m/<-[ 0..9 A..Z a..z ]>/;

my $country = $iban.substr(0,2).uc;

return False unless %len{$country} and $iban.chars == %len{$country};

$iban ~~ s/(.**4)(.+)/$1$0/;

return $iban.subst(:g, /\D/, { :36(~$_) }) % 97 == 1;

}

for 'GB82 WEST 1234 5698 7654 32',

'gb82 west 1234 5698 7654 32',

'GB82 TEST 1234 5698 7654 32'

{

say $_ ~~ IBAN;

}</lang>

:I'll let you decide if it's worth using in this task.--[[User:Grondilu|Grondilu]] ([[User talk:Grondilu|talk]]) 01:14, 19 April 2013 (UTC)