Print the first character of the previous answers

Question

The accepted winner is isaacg, with his 7-bit ASCII answer. However, the challenge isn't over yet - this bounty is awarded to the shortest answer. If, somehow, you get all the first characters of all the other answers down into 10 bytes, you will win the bounty. This includes all the characters from Round 2's GolfScript answer (plus the one added by that answer itself). This is the ONE time I will let you go out of order - if you have any objections to this, let me know in the comments.

I'd like to give credit to randomra, who helped me with my old idea and gave me this new one.

Previous Winners

• Round 1: isaacg, with 7-bit ASCII
  Next bytes: 30 (or 10 if you want that sweet, sweet rep)
  You know, code-golfing is really cool. People take a challenge, and it slowly gets smaller! But let's do this another way. So, here is my challenge:

• The code will print the first character of all the previous answers in the order they were posted (the first answer prints nothing)

• The code starts at 100 bytes and decreases by 5 each time.
• If two posts are going by the same answer (i.e, they both posted within a few seconds of each other), the newer one has to add the old one's character and decrease by 5 bytes (even by a few seconds).
• Any language can be used.
• Your code must not produce any errors.
• Your code must use all the bytes required for the first step.
• Your code must print to STDOUT.
• Non-printable characters are OK, but:
  • They can not be the first character (for the sake of the purpose of this question)
  • You must let everyone know where they are
• You may post multiple answers, but:
  • You must wait 2 answers before posting another (so if you posted the 100 bytes, you have to wait until 85 bytes.)
• You can't:
  • use more than 10 bytes of comments
  • have variables that go unused for the entire program
  • fill the program with whitespace
  • have variable names longer than 10 bytes (but you can have multiple less-than 10-byte variables)
    (EMBLEM's first answer being the exception to these rules, because it was posted before these restrictions.)
• No standard loopholes. Unless you want to take all the fun out of the challenge.
• When no more answers are submitted for 3 weeks, the answer that uses the fewest bytes wins. (In the event of a tie, the one printing the longer string wins.)

Example: The third answer has to be a 90 bytes long code outputting two characters (the first char of the 100-byte code then the first char of the 95-byte code). The first answer outputs nothing (no previous answers to get chars from).

Answer 1

7-bit ASCII, 15 bytes

Updated: I did not realize that padding should occur at the end.

Correct version, padded at end:

hexdump (xxd):

0000000: e1c3 af0e 1438 a8b6 8f37 7a7b 7250 b6    .....8...7z{rP.

Printouts (not sure which is correct):

�ï8��z{rP�

áï8¨¶7z{rP¶

Old version, incorrectly padded at the front:

pá×
T[G½=¹([

The language / format here is 7-bit ascii, where each group of 7 bits corresponds to an ASCII character. It is used in transferring SMS data. A decoder is located here.

No widely accepted ruling exists on whether answers to fixed output questions which are not written in a programming language are allowed. See this meta post for more information. (I apologize, I misread that post earlier.)

Answer 2

Element, 80 bytes

programs do many fun things, like print the letters p`, p`, u`, and p` in a row.

This is a language I created over three years ago. You can find an interpreter, written in Perl, here. The ` operator prints the top thing on the stack (the letters). The other punctuation does do stuff, like concatenation, but the results are never printed.

Answer 3

Clip, 20 bytes

[M"ppuppPq([#fwSmdP"

Answer 4

Common Lisp, 65 bytes

(print(map 'string #' code-char #(112 112 117 112 #x70 80 #x71)))

Answer 5

Scratch, 45 bytes

when green flag clicked
show
say[ppuppPq([#f]

Byte count as per text representation. See meta.

Answer 6

Python 3, 95 bytes

pre='public class f{public static void main(String[] a){System.out.print("");}}'
print(pre[0])

Answer 7

Haskell, 35 bytes

main = putStrLn "\&ppuppPq([#fwS\&"

Answer 8

It has been 24 hours since the edit! Let's do this! :D

Java, Round 2, 100 bytes

public class Bytes{public static void main(String[] args){System.out.print("ppuppPq([#fwSmdP[p");}}

Answer 9

Round 2: Ruby, 75 bytes

"ppuppPq([#fwSmdP[ppnvos".chars.each do|character|;print character;end#4444

I thought I'd make it a little more challenging by starting my answer with a quote! >:D

Answer 10

Java, 100 bytes

public class f{public static void main(String[] a){System.out.print("");}}//createdbyEMBLEMasdfghjkl

Answer 11

Mathematica, 75 bytes

Print[StringJoin[First/@Characters/@{"publ","pre=","usin","p1 =","prog"}]];

Answer 12

F#, 60 bytes

[<EntryPoint>]let main arg=System.Console.Write "ppuppPq(";0

Answer 13

F# script, 40 bytes

System.Console.Write "\u0070puppPq([#fw"

It has its own file type (.fsx), so I'm pretty sure that it counts as a language.

Answer 14

Round 2: ///, 65 bytes

\p/CodeGolfIsAwesome!/puppPq/CodeGolfIsAwesome!([#fwSmdP[ppnvos"R

Thought I would spice it up a bit more with a backslash :)

Answer 15

C#, 90 bytes

using System;namespace IAmAwesome{class Program{static void Main(){Console.Write("pp");}}}

Answer 16

Ruby, 70 bytes

q = ["publ", "pre", "usi", "p1 ", "pro", "Pri"]
q.each{|s| print s[0]}

Answer 17

C, 55 Bytes

#include<stdio.h>
int main(){return puts("ppuppPq([");}

Answer 18

JavaScript, 50 bytes

function foo() {console.log("ppuppPq([#");}
foo();

Answer 19

MATLAB, 30 bytes

disp([112 112 'uppPq([#fwSm'])

Nicely shows how loose MATLAB goes about with data types.

Answer 20

Mathematica, 25 bytes

Print["ppuppPq([#fwSmd"];

Answer 21

Round 2: Batch, 70 bytes

REM BATCHS
GOTO B
:C
ECHO ppuppPq([#fwSmdP[ppnvos"
GOTO A
:B
GOTO C
:A

Your quote was futile. D:>

Edit: it just occurred to me that I was going by file size instead of character count, not sure how bytes are to be counted :P

Edit 2: Added a comment to fill bytes. If you check byte count on a windows machine, just pretend the "REM BATCHS" is just "REM" I guess. :P

Answer 22

Round 2, ><>, 45 bytes

4 chars of comments.

'c(v\R"sovnpp[PdmSwf#[(qPppupp'01.uwyz
ol?!;

The string now contains both " and ', so ><> answers can't just surround it with either anymore (that's how I avoided any escapes).

Answer 23

Round 2, Mathematica, 40 bytes

Print@"ppuppPq([#fwSmdP[ppnvos\"R\\v(c'"

Yay second page!

Answer 24

Round 2, Golfscript, 35 bytes

"ppuppPq([#fwSmdP[ppnvos\"R\\v(c'P"

No waste bytes. Starts with a quote again!

Answer 25

Python 3, 85 bytes

p1 = 'publ'
p2 = 'pre'
p3 = 'usi'
def cprint():
  print(p1[0], p2[0], p3[0])
cprint()

Answer 26

Round 2, C#, 95 bytes

namespace Cool{class Program{static void Main(){System.Console.Write("ppuppPq([#fwSmdP[pp");}}}

Answer 27

Round 2: Javascript, 90 bytes

var p="p";alert(p+p+p+"u"+p+p+p.toUpperCase()+"q([#fwSmd"+p.toUpperCase()+"["+p+p+"n");//p

Answer 28

Round 2, Javascript, 60 bytes

var _p="p";alert(_p.repeat(2)+"uppPq([#fwSmdP[ppnvos\"R\\");

Answer 29

Round 2, F# script, 55 bytes

(**)System.Console.Write(@"uppPq([#fwSmdP[ppnvos""R\v")

See my previous F# script anwer for why I think it is a valid language.

Answer 30

Round 2, R, 50 bytes

cat('ppuppPq([#fwSmdP[ppnvos\"R\\v(',file=stdout())

Answer 31

Round 2: Python, 85 bytes

os=['p']*8
os[4:6]=u'P'+r'q([#fwSmdP'
os[2:2]='u'
os[-2:-2]='['
print''.join(os)+'nv'

Starts with the fundamentals - the 'p's - and builds it up from there.

Answer 32

Round 2: VBS, 80 bytes

s = "ppuppPq([#fwSmdP[ppnvo" : For i=1 To 22 : WScript.Echo Mid(s ,i , 1) : Next

Left field language.