Revisions to Output the first position in your program for each input character

Post Undeleted by Dom Hastings

occurred Feb 20, 2018 at 8:32

added 102 characters in body

Source Link

edited Feb 20, 2018 at 8:32

Perl 5 with `-pl`, 4143 bytes

Uses newline separated input and prints -1 for characters not appearing in the program.

$_=q{print index"\$_=q$s=q{$_};eval"$_=index"\$s=q{$s};eval\$s",<>$_};eval;eval$s

$_=q{print index"\$_=q{$_};eval",<>};eval

Uses newline separated input and prints -1 for characters not appearing in the program.

$s=q{$_=index"\$s=q{$s};eval\$s",$_};eval$s

Post Deleted by Dom Hastings

occurred Feb 20, 2018 at 8:30

Source Link

created Feb 19, 2018 at 19:54

$_=q{print index"\$_=q{$_};eval",<>};eval