chiark / gitweb /
compute-scottish-stv: sort countballots output
[appendix-a6.git] / spi2loose
1 #!/usr/bin/perl -w
2 use strict;
3 while (<>) {
4       m/^(\w+)(?:\s+(\w+))?$/ or die "$_ ?";
5       print "$1 : ".(join " ", split //, ($2 // ''))."\n" or die $!;
6 }
7       
8