https://www.ptt.cc/bbs/Programming/M.1478792208.A.EFC.html 提的「[問題] 1-9位數不重複印出來」，這邊用阿諾語言(https://github.com/lhartikk/ArnoldC/) 實作

hello.arnoldc

LISTEN TO ME VERY CAREFULLY check
I NEED YOUR CLOTHES YOUR BOOTS AND YOUR MOTORCYCLE arg1
I NEED YOUR CLOTHES YOUR BOOTS AND YOUR MOTORCYCLE arg2
GIVE THESE PEOPLE AIR

HEY CHRISTMAS TREE varFalse
YOU SET US UP @I LIED
HEY CHRISTMAS TREE varTrue
YOU SET US UP @NO PROBLEMO
HEY CHRISTMAS TREE arg1IsZero
YOU SET US UP varTrue
HEY CHRISTMAS TREE arg1Mod10
YOU SET US UP 0
HEY CHRISTMAS TREE arg1Mod10IsArg2
YOU SET US UP 0
HEY CHRISTMAS TREE newArg1
YOU SET US UP 0
HEY CHRISTMAS TREE result1
YOU SET US UP 0

GET TO THE CHOPPER arg1IsZero
HERE IS MY INVITATION arg1
YOU ARE NOT YOU YOU ARE ME 0
ENOUGH TALK

BECAUSE I'M GOING TO SAY PLEASE arg1IsZero
I'LL BE BACK varTrue
YOU HAVE NO RESPECT FOR LOGIC

GET TO THE CHOPPER arg1Mod10
HERE IS MY INVITATION arg1
I LET HIM GO 10
ENOUGH TALK

GET TO THE CHOPPER arg1Mod10IsArg2
HERE IS MY INVITATION arg1Mod10
YOU ARE NOT YOU YOU ARE ME arg2
ENOUGH TALK

BECAUSE I'M GOING TO SAY PLEASE arg1Mod10IsArg2
I'LL BE BACK varFalse
YOU HAVE NO RESPECT FOR LOGIC

GET TO THE CHOPPER newArg1
HERE IS MY INVITATION arg1
HE HAD TO SPLIT 10
ENOUGH TALK

GET YOUR ASS TO MARS result1
DO IT NOW check newArg1 arg2
I'LL BE BACK result1

HASTA LA VISTA, BABY







LISTEN TO ME VERY CAREFULLY getdigit
I NEED YOUR CLOTHES YOUR BOOTS AND YOUR MOTORCYCLE digit
I NEED YOUR CLOTHES YOUR BOOTS AND YOUR MOTORCYCLE current
I NEED YOUR CLOTHES YOUR BOOTS AND YOUR MOTORCYCLE pos
GIVE THESE PEOPLE AIR

HEY CHRISTMAS TREE n
YOU SET US UP 0
HEY CHRISTMAS TREE d
YOU SET US UP 0
HEY CHRISTMAS TREE isLessThan10
YOU SET US UP @NO PROBLEMO
HEY CHRISTMAS TREE isOver
YOU SET US UP 0
HEY CHRISTMAS TREE dIsNotZero
YOU SET US UP 0
HEY CHRISTMAS TREE nextVar
YOU SET US UP 0
HEY CHRISTMAS TREE nextPos
YOU SET US UP 0

STICK AROUND isLessThan10

GET YOUR ASS TO MARS d
DO IT NOW check current n

GET TO THE CHOPPER dIsNotZero
HERE IS MY INVITATION d
LET OFF SOME STEAM BENNET 0
ENOUGH TALK

BECAUSE I'M GOING TO SAY PLEASE dIsNotZero

GET TO THE CHOPPER isOver
HERE IS MY INVITATION pos
GET UP 1
YOU ARE NOT YOU YOU ARE ME digit
ENOUGH TALK

GET TO THE CHOPPER nextVar
HERE IS MY INVITATION current
YOU'RE FIRED 10
GET UP n
ENOUGH TALK

GET TO THE CHOPPER nextPos
HERE IS MY INVITATION pos
GET UP 1
ENOUGH TALK


BECAUSE I'M GOING TO SAY PLEASE isOver
TALK TO THE HAND nextVar
BULLSHIT
DO IT NOW getdigit digit nextVar nextPos
YOU HAVE NO RESPECT FOR LOGIC


YOU HAVE NO RESPECT FOR LOGIC

GET TO THE CHOPPER n
HERE IS MY INVITATION n
GET UP 1
ENOUGH TALK
GET TO THE CHOPPER isLessThan10
HERE IS MY INVITATION 10
LET OFF SOME STEAM BENNET n
ENOUGH TALK
CHILL

HASTA LA VISTA, BABY

IT'S SHOWTIME

HEY CHRISTMAS TREE changeMe
YOU SET US UP 3
DO IT NOW getdigit changeMe 0 0
YOU HAVE BEEN TERMINATED

上面阿諾語言的邏輯換成 PHP 如下:

function check($arg1, $arg2) // $arg1 完整數 $arg2 檢查位數
{
    if ($arg1 == 0) {
        return true;
    }
    $c = $arg1 % 10;
    if ($c == $arg2) {
        return false;
    }
    return check(floor($arg1 / 10), $arg3a)aa;
}

function getdigit($digit, $current, $pos)
{
    $n = 0;
    while ($n < 10) {
        $d = check($current, $n);
        if ($d) {
            $nextVar = $current * 10 + $n;
            if ($digit == $pos + 1) {
                echo $nextVar;
            } else {
                getdigit($digit, $nextVar, $pos + 1);
            }
        }
        $n ++;
    }
}

$changeMe = 2;
getdigit($changeMe, 0, 0);