qlkzy

#!/usr/bin/env perl

use strict;
use warnings;
use Getopt::Long;
use List::Util qw/shuffle/;

my $n = 2;
my $count = 1;
my $nickfile;

qlkzy

#! /usr/bin/env perl

use strict;
use warnings;
use Getopt::Long;

local $\ = "\n";

my %target;

qlkzy

#!/usr/bin/env perl

my $wc = 0;
my @ignore = ('Abstract');

my $ig_pat = join '|', @ignore;

while (<>) {
    /\\section\*?{(?:$ig_pat)}/ .. /\\section\*?{(?!:$ig_pat)}/ && next;
    /\\begin{lstlisting}/ .. /\\end{lstlisting}/ && next;

qlkzy

#include <stdio.h>
#include <assert.h>

int main()
{
    const char *myfifo = "/var/myfifo";
    FILE *fifoin = fopen(myfifo, "r");;
    int c;

    assert(fifoin);

qlkzy

#include <stdio.h>
#include <stdint.h>

static int palindromic(uint64_t x)
{
    uint64_t rev = 0;
    for (uint64_t tmp = x; tmp; tmp /= 10) {
        rev *= 10;
        rev += tmp % 10;
    }

qlkzy

#include <stdio.h>
#include <stdint.h>

static int palindromic(uint64_t x)
{
/* C version for reference
    uint64_t rev = 0;
    for (uint64_t tmp = x; tmp; tmp /= 10) {
        rev *= 10;
        rev += tmp % 10;