This is the revision history for mbti in <*:##NULL>
| factoid_id | subject | copula | predicate | author | namespace |
|---|---|---|---|---|---|
| 15955 | mbti | is | `eval my ($n)=qw/`arg! `arg &n!/; use Digest::MD5 qw/md5_hex/; my $t=substr md5_hex($n),1,1; (qw/istj isfj infj intj istp isfp infp intp estp esfp enfp entp estj esfj enfj entj/)[oct "0x$t"];! istj |
simcop2387 | |
| 15954 | mbti | is | `eval my ($n)=qw/`arg! `arg &n!/; use Digest::MD5 qw/md5_hex/; my $t=substr md5_hex($n),1,1; (qw/istj isfj infj intj istp isfp infp intp estp esfp enfp entp estj esfj enfj entj/)[ord "0x$t"]; [$t, "0x$t", oct "0x$t"]! Useless use of list slice in void context at (IRC) line 1. [3,"0x3",3] |
simcop2387 | |
| 15953 | mbti | is | `eval my ($n)=qw/`arg! `arg &n!/; use Digest::MD5 qw/md5_hex/; my $t=substr md5_hex($n),1,1; (qw/istj isfj infj intj istp isfp infp intp estp esfp enfp entp estj esfj enfj entj/)[ord "0x$t"]; [$t, "0x$t", ord "0x$t"]! Useless use of list slice in void context at (IRC) line 1. [3,"0x3",48] |
simcop2387 | |
| 15952 | mbti | is | `eval my ($n)=qw/`arg! `arg &n!/; use Digest::MD5 qw/md5_hex/; my $t=substr md5_hex($n),1,1; (qw/istj isfj infj intj istp isfp infp intp estp esfp enfp entp estj esfj enfj entj/)[ord "0x$t"]! No output. |
simcop2387 | |
| 15951 | mbti | is | `eval my ($n)=qw/`arg! `arg &n!/; use Digest::MD5 qw/md5_hex/; my $t=substr md5_hex($n),1,1; (qw/istj isfj infj intj istp isfp infp intp estp esfp enfp entp estj esfj enfj entj/)[$t]! Argument "b" isn't numeric in list slice at (IRC) line 1. istj |
simcop2387 | |
| 15950 | mbti | is | `eval my ($n)=qw/`arg! `arg &n!/; use Digest::MD5 qw/md5_hex/; my $t=substr md5_hex($n),1,1; (qw/istj isfj infj intj istp isfp infp intp estp esfp enfp entp estj esfj enfj entj/)[$t]! intj |
simcop2387 | |
| 15949 | mbti | is | `eval my ($n)=qw/`arg! `arg &n!/; use Digest::MD5 qw/md5_hex/; substr md5_hex($n),1,1;! 3 |
simcop2387 | |
| 15948 | mbti | is | `eval my ($n)=qw/`arg! `arg &n!/; $n! simcop2387 |
simcop2387 |