### Sinusoidal japh

by imp (Priest)
 on Aug 26, 2006 at 17:52 UTC Need Help??

My first obfu:
```print join('',@\$_),"\n" for map{@\$_->[0]}map{[[map{
@\$a=(@\$a,1);int sin(\$_*0.1)*8==\$b-8?[j,a,p,h]
->[\$#\$a%4]:' '}@\$_],\$b++]}([1..80])x16;
```                                          phjaphjaph
hja          ja
p               ph
ja                  j
h                     a
ap                       ph
j                           j
j                             ph                             aph
a                          ja                                  j
p                        h                                     a
hj                     p                                       ph
a                  ja                                          j
ph              ph                                             ap
ja          ja                                                 hj
phjaphjaph                                                     aphjaph

```

Replies are listed 'Best First'.
Re: Sinusoidal japh
by liverpole (Monsignor) on Aug 27, 2006 at 19:07 UTC
++imp on a nice theme for a first Japh!

A little formatting of the script, and your presentation could even hint at the output:

```print+                      join \$
x,@\$_,                \$/for  map{@
\$_->[0            ]}map      {[[map
{push@          \$a,1;        int 8
*sin \$_       *.1==          \$b-8?
(j,a,p     ,h)[@            \$a%4]
:\$"}+  @\$_],                \$b++]
}([1..                     80])x16;

By the way, it occurred to me that changing "==" to "<=" will integrate the sine wave:

```                                          hjaphjaphj
+
japhjaphjaphjap
+
hjaphjaphjaphjaphj
+
aphjaphjaphjaphjaphja
+
japhjaphjaphjaphjaphjap
+
phjaphjaphjaphjaphjaphjaphj
+
aphjaphjaphjaphjaphjaphjaphja
+
a                             hjaphjaphjaphjaphjaphjaphjaphjaphj
+
ap                          aphjaphjaphjaphjaphjaphjaphjaphjaphja
+
aph                        japhjaphjaphjaphjaphjaphjaphjaphjaphjap
+
aphja                     hjaphjaphjaphjaphjaphjaphjaphjaphjaphjaphj
+
aphjap                  aphjaphjaphjaphjaphjaphjaphjaphjaphjaphjaphja
+
aphjaphj              hjaphjaphjaphjaphjaphjaphjaphjaphjaphjaphjaphjap
+
aphjaphjap          aphjaphjaphjaphjaphjaphjaphjaphjaphjaphjaphjaphjap
+
aphjaphjaphjaphjaphjaphjaphjaphjaphjaphjaphjaphjaphjaphjaphjaphjaphjap
+

s''(q.S:\$/9=(T1';s;(..)(..);\$..=substr+crypt(\$1,\$2),2,3;eg;print\$..\$/
Good idea on the formatting. It adds a lot to the presentation.

Here's the beta version of the the fish variant:

```       print join('',                     @\$_)
,"\n"          for map              {@\$_
->    [0]       }map        {[[map{@\$a
=(                 @\$a,\$c=abs int sin(
\$_*              0.1)*     6>=abs(\$b
-6));\$c?[J,A,P,H]->             [\$#\$a%4]
:' '}@\$_],\$b++,]}                ([1..44])x12;

Re: Sinusoidal japh - Fishy version
by imp (Priest) on Aug 27, 2006 at 15:05 UTC
```print join('',@\$_),"\n" for map{@\$_->[0]}map{[[map{@\$a=(@\$a
,1);abs int sin(\$_*0.1)*6==abs(\$b-6)?[j,a,p,h]->[\$#\$a%4]:' '
}@\$_],\$b++,]}([1..44])x12;
I'll post a spoiler soon, ran out of time yesterday
Re: Sinusoidal japh - Spoiler
by imp (Priest) on Aug 27, 2006 at 17:48 UTC

Create A New User
Node Status?
node history
Node Type: obfuscated [id://569822]
Approved by bobf
Front-paged by liverpole
help
Chatterbox?
 [Corion]: Discipulus: IMO it's not that much pain, but most of the systems I use have a Perl 5.14 or newer on them nowadays [marto]: the question is more, is Padre still the way new users should be directed? [Discipulus]: ah ah I have all 5.26 atm but I play alone.. [Corion]: Except this RHEL box, which comes with Perl 5.10.1 , but there I installed my own 5.20.3 for the real Perl programs we run ;) [Corion]: marto: I used Padre for some time but then switched to Notepad++, since all the funky features I wanted to put into Padre couldn't be made to work, and/or I lost interest :) [Discipulus]: indeed marto I dunno. I tested once and many years ago. But I'm not the programmer yardstick. I try to install Padre via cpan now just to add a line about it in the issue. Strawberryperl all life long! [marto]: yeah, when I worked on Windows I did use Np++ all the time

How do I use this? | Other CB clients
Other Users?
Others chanting in the Monastery: (12)
As of 2018-06-25 08:54 GMT
Sections?
Information?
Find Nodes?
Leftovers?
Voting Booth?
Should cpanminus be part of the standard Perl release?

Results (126 votes). Check out past polls.

Notices?