2009-08-13から1日間の記事一覧

誰かにはわかるポインタ入門編

// '\' エスケープ #include <stdio.h> int main() { char str[256] = "ab\\c"; char* cp; char str2[256]; int i=0; for (cp=str; *cp != '\0'; cp++) { //printf("%c\n", *cp); if (*cp == '\\') { str2[i] = *cp; i++; str2[i] = '\\'; } else{ str2[i] = *cp; } i</stdio.h>…

役判定

local $\ = "\n"; my $a = "m2m3m3m4m4m5m5m5m5m6m6m6m6m7"; my %hash; foreach my $hai ( $a =~ /\w\d/g ) { if (exists $hash{$hai}) { $hash{$hai}++; } else{ $hash{$hai}=1; } } # 頭候補さがし my @heads; while (my($k, $v) = each %hash) { print "$…