improved

Source Link

edited Jun 29, 2015 at 10:09

22.9k
4
60
103

CJam, 4647

"Once wh
en Imwas
msix yea
r2s oldm
I "N-'m/
S*'2sSc*2s-O"
saw"N/SO
o'aS"m2 
a"Oo2s-N
-S/OI*so
'yI-a"nr
wiNadI"c
cel'iaIS
/m2*Oo'x
 I-scel*
Ooel'cNOoel'c 2
2/'e*ON-

Try it online Try it online

"Once wh
en Imwas
msix yea
r2s oldm
I "         push this string
N-          remove newlines
'm/S* Sc*      replace m's with spaces (the c is redundant)
'2s2s-        remove 2'sconvert (the2 sto isstring redundant)and remove 2's
O           push an empty string
"
saw"        push this string
N/          split into lines (effectively removes the newline)
S           push a space
Oo          print empty string (no-op)
'a          push 'a'
S           push a space
"m2 
a"          push this string
Oo          print empty string (no-op)
2s-         convert 2 to string and remove 2's
N-          remove newline
S/          split by space (effectively removes the space)
OI*so       print an empty string repeated 18 times (no-op)
'y          push 'y'
I-          subtract 18 -> 'g'
a           wrap in array (string) -> "g"
"nr
wiNadI"     push this string
c           convert to (first) character -> 'n'
c           convert to character (no-op)
el          convert to lowercase (no-op)
'i          push 'i'
a           wrap in array (string) -> "i"
IS/         split " " into slices of length 18 -> [" "]
m           (acting as -) remove space strings from "i" (no-op)
2*          repeat "i" 2 times -> "ii"
Oo          print empty string (no-op)
'x          push 'x'
I-          subtract 18 -> 'f'
sc          convert to string and back to char (no-op)
el          convert to lowercase (no-op)
*           join "ii" with separator 'f' -> "ifi"
Oo          print empty string (no-op)
el          convert to lowercase (no-op)
'c          push 'c'
2 2/        divide 2 by 2 -> 1
'e          push 'e'
*           repeat 'e' 1 time -> "e"
O           push empty string
N-          remove newlines (no-op)

CJam, 46

"Once wh
en Imwas
msix yea
r2s oldm
I "N-'m/
S*'2s-O"
saw"N/SO
o'aS"m2 
a"Oo2s-N
-S/OI*so
'yI-a"nr
wiNadI"c
cel'iaIS
/m2*Oo'x
 I-scel*
Ooel'cN-

Try it online

"Once wh
en Imwas
msix yea
r2s oldm
I "         push this string
N-          remove newlines
'm/S*       replace m's with spaces
'2s-        remove 2's (the s is redundant)
O           push an empty string
"
saw"        push this string
N/          split into lines (effectively removes the newline)
S           push a space
Oo          print empty string (no-op)
'a          push 'a'
S           push a space
"m2 
a"          push this string
Oo          print empty string (no-op)
2s-         convert 2 to string and remove 2's
N-          remove newline
S/          split by space (effectively removes the space)
OI*so       print an empty string repeated 18 times (no-op)
'y          push 'y'
I-          subtract 18 -> 'g'
a           wrap in array (string) -> "g"
"nr
wiNadI"     push this string
c           convert to (first) character -> 'n'
c           convert to character (no-op)
el          convert to lowercase (no-op)
'i          push 'i'
a           wrap in array (string) -> "i"
IS/         split " " into slices of length 18 -> [" "]
m           (acting as -) remove space strings from "i" (no-op)
2*          repeat "i" 2 times -> "ii"
Oo          print empty string (no-op)
'x          push 'x'
I-          subtract 18 -> 'f'
sc          convert to string and back to char (no-op)
el          convert to lowercase (no-op)
*           join "ii" with separator 'f' -> "ifi"
Oo          print empty string (no-op)
el          convert to lowercase (no-op)
'c          push 'c'
N-          remove newlines (no-op)

CJam, 47

"Once wh
en Imwas
msix yea
r2s oldm
I "N-'m/
Sc*2s-O"
saw"N/SO
o'aS"m2 
a"Oo2s-N
-S/OI*so
'yI-a"nr
wiNadI"c
cel'iaIS
/m2*Oo'x
 I-scel*
Ooel'c 2
2/'e*ON-

Try it online

"Once wh
en Imwas
msix yea
r2s oldm
I "         push this string
N-          remove newlines
'm/Sc*      replace m's with spaces (the c is redundant)
2s-         convert 2 to string and remove 2's
O           push an empty string
"
saw"        push this string
N/          split into lines (effectively removes the newline)
S           push a space
Oo          print empty string (no-op)
'a          push 'a'
S           push a space
"m2 
a"          push this string
Oo          print empty string (no-op)
2s-         convert 2 to string and remove 2's
N-          remove newline
S/          split by space (effectively removes the space)
OI*so       print an empty string repeated 18 times (no-op)
'y          push 'y'
I-          subtract 18 -> 'g'
a           wrap in array (string) -> "g"
"nr
wiNadI"     push this string
c           convert to (first) character -> 'n'
c           convert to character (no-op)
el          convert to lowercase (no-op)
'i          push 'i'
a           wrap in array (string) -> "i"
IS/         split " " into slices of length 18 -> [" "]
m           (acting as -) remove space strings from "i" (no-op)
2*          repeat "i" 2 times -> "ii"
Oo          print empty string (no-op)
'x          push 'x'
I-          subtract 18 -> 'f'
sc          convert to string and back to char (no-op)
el          convert to lowercase (no-op)
*           join "ii" with separator 'f' -> "ifi"
Oo          print empty string (no-op)
el          convert to lowercase (no-op)
'c          push 'c'
2 2/        divide 2 by 2 -> 1
'e          push 'e'
*           repeat 'e' 1 time -> "e"
O           push empty string
N-          remove newlines (no-op)

improved and updated alphabet

Source Link

edited Jun 29, 2015 at 9:36

aditsu quit because SE is EVIL

22.9k
4
60
103

CJam, 4546

"Once wh
en Imwas
msix yea
r2s oldm
I "N-'m/
S*'2s-O"
saw"N/SO
o'aS"m2 
a"Oo'2a"Oo2s-N
-S/OI*so
'yI-a"nr
wiNadI"c
cel'iaIS
/m2*Oo'x
 I-scel*
Ooel'cN-

Try it online Try it online

Alphabet: "'*-/0INOSacdehilmnorswxy2INOSacdehilmnorswxy

"Once wh
en Imwas
msix yea
r2s oldm
I "         push this string
N-          remove newlines
'm/S*       replace m's with spaces
'2s-        remove 2's (the s is redundant)
O           push an empty string
"
saw"        push this string
N/          split into lines (effectively removes the newline)
S           push a space
Oo          print empty string (no-op)
'a          push 'a'
S           push a space
"m2 
a"          push this string
Oo          print empty string (no-op)
'22s-         convert 2 to string and remove 2's
N-          remove newline
S/          split by space (effectively removes the space)
OI*so       print an empty string repeated 18 times (no-op)
'y          push 'y'
I-          subtract 18 -> 'g'
a           wrap in array (string) -> "g"
"nr
wiNadI"     push this string
c           convert to (first) character -> 'n'
c           convert to character (no-op)
el          convert to lowercase (no-op)
'i          push 'i'
a           wrap in array (string) -> "i"
IS/         split " " into slices of length 18 -> [" "]
m           (acting as -) remove space strings from "i" (no-op)
2*          repeat "i" 2 times -> "ii"
Oo          print empty string (no-op)
'x          push 'x'
I-          subtract 18 -> 'f'
sc          convert to string and back to char (no-op)
el          convert to lowercase (no-op)
*           join "ii" with separator 'f' -> "ifi"
Oo          print empty string (no-op)
el          convert to lowercase (no-op)
'c          push 'c'
N-          remove newlines (no-op)

CJam, 45

"Once wh
en Imwas
msix yea
r2s oldm
I "N-'m/
S*'2s-O"
saw"N/SO
o'aS"m2 
a"Oo'2-N
-S/OI*so
'yI-a"nr
wiNadI"c
cel'iaIS
/m2*Oo'x
 I-scel*

Try it online

Alphabet: "'*-/0INOSacdehilmnorswxy

"Once wh
en Imwas
msix yea
r2s oldm
I "         push this string
N-          remove newlines
'm/S*       replace m's with spaces
'2s-        remove 2's (the s is redundant)
O           push an empty string
"
saw"        push this string
N/          split into lines (effectively removes the newline)
S           push a space
Oo          print empty string (no-op)
'a          push 'a'
S           push a space
"m2 
a"          push this string
Oo          print empty string (no-op)
'2-         remove 2's
N-          remove newline
S/          split by space (effectively removes the space)
OI*so       print an empty string repeated 18 times (no-op)
'y          push 'y'
I-          subtract 18 -> 'g'
a           wrap in array (string) -> "g"
"nr
wiNadI"     push this string
c           convert to (first) character -> 'n'
c           convert to character (no-op)
el          convert to lowercase (no-op)
'i          push 'i'
a           wrap in array (string) -> "i"
IS/         split " " into slices of length 18 -> [" "]
m           (acting as -) remove space strings from "i" (no-op)
2*          repeat "i" 2 times -> "ii"
Oo          print empty string (no-op)
'x          push 'x'
I-          subtract 18 -> 'f'
sc          convert to string and back to char (no-op)
el          convert to lowercase (no-op)
*           join "ii" with separator 'f' -> "ifi"

CJam, 46

"Once wh
en Imwas
msix yea
r2s oldm
I "N-'m/
S*'2s-O"
saw"N/SO
o'aS"m2 
a"Oo2s-N
-S/OI*so
'yI-a"nr
wiNadI"c
cel'iaIS
/m2*Oo'x
 I-scel*
Ooel'cN-

Try it online

Alphabet: "'*-/2INOSacdehilmnorswxy

"Once wh
en Imwas
msix yea
r2s oldm
I "         push this string
N-          remove newlines
'm/S*       replace m's with spaces
'2s-        remove 2's (the s is redundant)
O           push an empty string
"
saw"        push this string
N/          split into lines (effectively removes the newline)
S           push a space
Oo          print empty string (no-op)
'a          push 'a'
S           push a space
"m2 
a"          push this string
Oo          print empty string (no-op)
2s-         convert 2 to string and remove 2's
N-          remove newline
S/          split by space (effectively removes the space)
OI*so       print an empty string repeated 18 times (no-op)
'y          push 'y'
I-          subtract 18 -> 'g'
a           wrap in array (string) -> "g"
"nr
wiNadI"     push this string
c           convert to (first) character -> 'n'
c           convert to character (no-op)
el          convert to lowercase (no-op)
'i          push 'i'
a           wrap in array (string) -> "i"
IS/         split " " into slices of length 18 -> [" "]
m           (acting as -) remove space strings from "i" (no-op)
2*          repeat "i" 2 times -> "ii"
Oo          print empty string (no-op)
'x          push 'x'
I-          subtract 18 -> 'f'
sc          convert to string and back to char (no-op)
el          convert to lowercase (no-op)
*           join "ii" with separator 'f' -> "ifi"
Oo          print empty string (no-op)
el          convert to lowercase (no-op)
'c          push 'c'
N-          remove newlines (no-op)

improved

Source Link

edited Jun 29, 2015 at 9:17

aditsu quit because SE is EVIL

22.9k
4
60
103

CJam, 4445

"Once wh
en Imwas
msix yea
r0sr2s oldm
I "N-'m/
S*'0sS*'2s-O"
saw"N/SO
o'aS"m0o'aS"m2 
a"Oo'0a"Oo'2-N
-S/OI*so
'yI-a"nr
wINadi"cwiNadI"c
0N*'iaIScel'iaIS
*-elOo'x/m2*Oo'x
OodicI I-scel*

Try it online Try it online

"Once wh
en Imwas
msix yea
r0sr2s oldm
I "         push this string
N-          remove newlines
'm/S*       replace m's with spaces
'0s'2s-        remove zeros2's (the s is redundant)
O           push an empty string
"
saw"        push this string
N/          split into lines (effectively removes the newline)
S           push a space
Oo          print empty string (no-op)
'a          push 'a'
S           push a space
"m0"m2 
a"          push this string
Oo          print empty string (no-op)
'0'2-         remove zeros2's
N-          remove newline
S/          split by space (effectively removes the space)
OI*so       print an empty string repeated 18 times (no-op)
'y          push 'y'
I-          subtract 18, obtaining-> 'g'
a           wrap in array (string) -> "g"
"nr
wINadi"wiNadI"     push this string
c           convert to (first) character -> 'n'
0N*c         repeat a newlineconvert 0to timescharacter (emptyno-op)
el string         convert to lowercase (no-op)
'i          push 'i'
a           wrap in array (string) -> "i"
IS*IS/         repeatsplit a" space" into slices of length 18 times
-> [" "]
m           (acting as -) remove spacesspace strings from "i" (no-op)
el2*          convertrepeat to"i" lowercase2 (notimes -op)> "ii"
Oo          print empty string (no-op)
'x          push 'x'
Oo I-         print emptysubtract string18 (no-op)> 'f'
dicsc          convert to double, integer,string thenand back to char (no-op)
Iel          convert to lowercase (no-op)
*          subtract 18,join obtaining"ii" with separator 'f' -> "ifi"

CJam, 44

"Once wh
en Imwas
msix yea
r0s oldm
I "N-'m/
S*'0s-O"
saw"N/SO
o'aS"m0 
a"Oo'0-N
-S/OI*so
'yI-a"nr
wINadi"c
0N*'iaIS
*-elOo'x
OodicI -

Try it online

"Once wh
en Imwas
msix yea
r0s oldm
I "         push this string
N-          remove newlines
'm/S*       replace m's with spaces
'0s-        remove zeros
O           push an empty string
"
saw"        push this string
N/          split into lines (effectively removes the newline)
S           push a space
Oo          print empty string (no-op)
'a          push 'a'
S           push a space
"m0 
a"          push this string
Oo          print empty string (no-op)
'0-         remove zeros
N-          remove newline
S/          split by space (effectively removes the space)
OI*so       print an empty string repeated 18 times (no-op)
'y          push 'y'
I-          subtract 18, obtaining 'g'
a           wrap in array (string)
"nr
wINadi"     push this string
c           convert to (first) character - 'n'
0N*         repeat a newline 0 times (empty string)
'i          push 'i'
a           wrap in array (string)
IS*         repeat a space 18 times
-           remove spaces from "i" (no-op)
el          convert to lowercase (no-op)
Oo          print empty string (no-op)
'x          push 'x'
Oo          print empty string (no-op)
dic         convert to double, integer, then back to char (no-op)
I-          subtract 18, obtaining 'f'

CJam, 45

"Once wh
en Imwas
msix yea
r2s oldm
I "N-'m/
S*'2s-O"
saw"N/SO
o'aS"m2 
a"Oo'2-N
-S/OI*so
'yI-a"nr
wiNadI"c
cel'iaIS
/m2*Oo'x
 I-scel*

Try it online

"Once wh
en Imwas
msix yea
r2s oldm
I "         push this string
N-          remove newlines
'm/S*       replace m's with spaces
'2s-        remove 2's (the s is redundant)
O           push an empty string
"
saw"        push this string
N/          split into lines (effectively removes the newline)
S           push a space
Oo          print empty string (no-op)
'a          push 'a'
S           push a space
"m2 
a"          push this string
Oo          print empty string (no-op)
'2-         remove 2's
N-          remove newline
S/          split by space (effectively removes the space)
OI*so       print an empty string repeated 18 times (no-op)
'y          push 'y'
I-          subtract 18 -> 'g'
a           wrap in array (string) -> "g"
"nr
wiNadI"     push this string
c           convert to (first) character -> 'n'
c           convert to character (no-op)
el          convert to lowercase (no-op)
'i          push 'i'
a           wrap in array (string) -> "i"
IS/         split " " into slices of length 18 -> [" "]
m           (acting as -) remove space strings from "i" (no-op)
2*          repeat "i" 2 times -> "ii"
Oo          print empty string (no-op)
'x          push 'x'
I-          subtract 18 -> 'f'
sc          convert to string and back to char (no-op)
el          convert to lowercase (no-op)
*           join "ii" with separator 'f' -> "ifi"

improved

Source Link

edited Jun 29, 2015 at 7:06

aditsu quit because SE is EVIL

22.9k
4
60
103

Loading

improved

Source Link

edited Jun 29, 2015 at 6:22

aditsu quit because SE is EVIL

22.9k
4
60
103

Loading

improved

Source Link

edited Jun 29, 2015 at 5:59

aditsu quit because SE is EVIL

22.9k
4
60
103

Loading

improved

Source Link

edited Jun 29, 2015 at 5:39

aditsu quit because SE is EVIL

22.9k
4
60
103

Loading

added explanation

Source Link

edited Jun 29, 2015 at 5:13

aditsu quit because SE is EVIL

22.9k
4
60
103

Loading

Source Link

answered Jun 29, 2015 at 5:01

aditsu quit because SE is EVIL

22.9k
4
60
103

Loading

Stack Exchange Network

Return to Answer

CJam, 4647

CJam, 46

CJam, 47

CJam, 4546

CJam, 45

CJam, 46

CJam, 4445

CJam, 44

CJam, 45