Ini adalah tantangan yang sangat sederhana.

Bahasa lelucon InterpretMe terdiri dari satu perintah; *, yang menyebabkan program untuk mengambil input dari program InterpretMe dan menjalankannya.

Program InterpretMe akan menafsirkan sebanyak mungkin program InterpretMe yang ada *di input.

Tujuan Anda adalah membuat program yang menginterpretasikan InterpretMe dalam sesedikit mungkin byte.

Memasukkan

Input akan terdiri dari string ASCII satu baris, string unicode utf-8 jika Anda benar-benar menginginkannya, atau pengkodean karakter apa pun yang digunakan bahasa Anda, jika Anda menginginkannya sebanyak itu. String ini dapat dimasukkan pada awal, atau pada awal setiap proses interpreter InterpretMe. Jika mereka semua dimasukkan pada awal, program harus menampilkan setiap baris program saat memulai.

Keluaran

Dalam tantangan ini, tidak akan ada output kecuali pilihan satu input dipilih, jika tidak hanya terminasi dan non-terminasi

Kasus uji tidak terdiri dari input dan output, tetapi input dan terminasi. Baris baru menunjukkan input baru untuk ditafsirkan sebagai InterpretMe.

Jika menggunakan satu input di awal, ini bisa dianggap apa yang dikeluarkan ketika program ini diinput, diikuti oleh garis tidak aktif (tidak melakukan apa-apa).

1. *   (executes input as an interpret me program, finishes)
2. *   (^same)
3. **  (executes input as an interpret me program, then does this again after the first program is done, finishes)
4. hi  (nothing, first star of previous line finishes)
5. **  (same as the other two star line)
6. hi  (nothing, first star of previous line finishes)
7. hi  (nothing, second star of line 5 finishes, so second star of line 3 finishes, so line 2 finishes, so line one finishes)
[termination] (not outputted)

hi  (does nothing and finishes)
[termination]

*hi  (executes inputted program, finishes)
*yo  (executes inputted program, finishes)
hey  (nothing)
[termination]

Sekali lagi, ini adalah kode-golf , jadi lebih sedikit byte lebih baik

05AB1E , 11 byte

Kode:

[¬'*QiIJ}¦Ž

Penjelasan:

[            # Enter an infinite loop
 ¬           # Get the first character of the input string (leaves the input on the stack)
  '*Qi  }    # If equal to an asterisk...
      I      # Request another line of input and
       J     # Join it to the string that was left on the stack
         ¦   # Remove the first character
          Ž  # If everything is processed, terminate

Menggunakan pengkodean CP-1252 . Coba online? .

Python 3, 35 byte

i=1
while i:i+=input().count('*')-1

set i to one, tambahkan jumlah '*' -1 ke i

Saya pikir saya bisa mengurangi ini dengan ~tipu daya yang tidak bisa saya lakukan

Python 3, 39 38 byte

def f():[f()for c in input()if c=="*"]

Disimpan 1 byte berkat @atlasologist

Ruby, 29 byte

i=1
i+=gets.count ?*while$.<i

Variabel ajaib Ruby $.melacak jumlah baris yang dibaca dari stdin. Tetap baca input saat angka ini lebih rendah dari jumlah tanda bintang (ditambah 1 awal).

JavaScript, 53 45 44 byte

f=_=>{for(i in prompt().match(/\*/g))f()}f()

Program ini agak mengganggu untuk digunakan karena kurangnya I / O JavaScript yang baik.

Meminta program, lalu meminta program lain untuk setiap *program input.

Java hanya 45 60 101 100 99 byte

Membalikkan kode-golf: D. Saya perhatikan bahwa saya salah membaca spesifikasi (dua kali), tetapi sekarang seharusnya berfungsi. Tampaknya cukup sederhana, mungkin ada cara yang lebih baik untuk menulis ini sebagai ungkapan lamda.

void a(char[]a){for(char b:a)if(b==42)a(new java.util.Scanner(System.in).nextLine().toCharArray());}

Kecurangan busuk hanya 17 byte!

void a(char[]a){}

Versi ini akan menerima input melalui pengetikan yang sangat cepat

Mathematica, 38 byte

f:=StringCases[InputString[],"*":>f];f

APL, 15 byte

{⍵='*':∇¨⍞⋄⍬}¨⍞

Uji:

      {⍵='*':∇¨⍞⋄⍬}¨⍞
*
*
**
hi
**
hi
hi
⍝ termination

Penjelasan:

              ⍞  read a line from the keyboard
{           }¨   for each character:
 ⍵='*':          if it is *:
         ⍞         read another line from the keyboard
       ∇¨          do the same for each character
          ⋄⍬     otherwise, return empty list (which displays as nothing)

Perl, 33 byte

for(my$c;$c+=()=<>=~/\*/g;$c--){}

Menghitung berapa kali * yang terjadi pada input dan menambahkan itu ke berapa kali loop. Saya merasa harus ada cara untuk melakukan decrementing pada langkah yang sama dengan incrementing tetapi saya tidak bisa mengetahuinya.