aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

June 2018 Update

Browse source
This commit is contained in:
Ingy döt Net 2018-06-22 20:57:24 +00:00
parent ba8067c3b7
commit 22f33d4004
5278 changed files with 84726 additions and 14379 deletions
Download patch file Download diff file Expand all files Collapse all files

6
Task/Strip-control-codes-and-extended-characters-from-a-string/Factor/strip-control-codes-and-extended-characters-from-a-string.factor Normal file
View file

@ -0,0 +1,6 @@
USING: ascii kernel sequences ;
: strip-control-codes ( str -- str' ) [ control? not ] filter ;
: strip-control-codes-and-extended ( str -- str' )
strip-control-codes [ ascii? ] filter ;

4
Task/Strip-control-codes-and-extended-characters-from-a-string/Perl-6/strip-control-codes-and-extended-characters-from-a-string.pl6
View file

@ -1,5 +1,5 @@
my $str = (0..400).roll(80)».chr.join;
say $str;
say $str.subst(/<[ ^@..^_ ]>/, '', :g);
say $str.subst(/<-[ \ ..~ ]>/, '', :g);
say $str.subst(/<:Cc>/, '', :g); # unicode property: control character
say $str.subst(/<-[\ ..~]>/, '', :g);