Skip to content

Instantly share code, notes, and snippets.

@rgs
Created October 31, 2019 14:24
Show Gist options
  • Save rgs/0755e50ced7d5bc716252f87cae4e7dd to your computer and use it in GitHub Desktop.
Save rgs/0755e50ced7d5bc716252f87cae4e7dd to your computer and use it in GitHub Desktop.
Shows all conjunct consonants in devanagari
#!perl
use 5.18.2;
use strict;
use warnings;
use open ':std', ':utf8';
print " | ";
for my $c (0x0915 .. 0x0939) {
print chr($c)." | ";
}
say "";
for my $c1 (0x0915 .. 0x0939) {
print chr($c1)." | ";
for my $c2 (0x0915 .. 0x0939) {
print chr($c1)."\x{094D}".chr($c2)." | ";
}
say '';
}
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment