Авто BATCH гольфіст


25

Я люблю BATCH, незважаючи на шокуючу відсутність функціональних команд, незважаючи навіть на відсутність нецілої підтримки. Чому? Тому що це працює:

SET var=SET
%var% i=0

Це буде оцінено для:

SET var=SET
SET i=0

Фантастично, чи не так? Раніше я використовував цю техніку в програмі BATCH , оскільки вона економить байти!

Якщо ви приймете це, ваше завдання буде полягати в тому, щоб таким чином "програвати" програми BATCH Ви повинні зменшити розмір байтів вхідної програми BATCH, включивши SETзаяви, які оцінювали б на частини програми, і жодним чином не змінювали програму. (Це скаже, скажімо, перейменування назви змінної на щось коротше. Пам’ятайте, що BATCH, окрім змінних, нечутливий до регістру.) Ваш рахунок обчислюється таким чином:

score = # of characters in your program + 5*(net result bytes in test cases below)

Я залишаю за собою право додавати більше тестових випадків, щоб перешкодити роботі над оптимізацією програми для тестових випадків.

Заради цієї проблеми, ваші SETзаяви не можуть містити символи, що управляють ( |, <, >, %) або перенесення рядків. Ви не можете змінювати код, окрім переміщення фрагментів коду всередині оператора set. (Тобто ви не можете видалити зайвий пробіл, замінити EQUі ==т. Д.) Ми будемо вважати, що рядки закінчуються на \n.

Тестові справи

Кожен тестовий випадок знаходиться в окремому блоці коду, і кожен тестовий випадок є автономним, тобто ви маєте гольф лише припускаючи, що дано в ньому. (Тобто, якщо ви перебуваєте SET d=SETв одній програмі, це твердження не буде автоматично надано жодній іншій програмі). Кожен приклад результату можна знайти після кожного тестового випадку. Між тестовими випадками існує лінія.

@ECHO OFF
Приріст SET = 10
: петля
АКО% приріст% EQU 0 GOTO кінець
% Приросту ECHO%
SET / A приріст%% - = 1
GOTO петля
: кінець
ВХІД

@ECHO OFF
SET / p INPUT = Введіть сюди введення:
SET R =% 1
ECHO Остання таблиця введення тут:% R: ~ -1%

@ECHO OFF
Приріст SET = 10
: е
GOTO f
ECHO f
: f
GOTO g
ECHO g
: g
GOTO h
ECHO h
: год
ГОТО i
ECHO i
: i
GOTO j
ECHO j
: j
ЯКЩО 3 == 4 (ECHO 4) ELSE (ECHO 5)
ЯКЩО 5 == 3 (GOTO l) ELSE (GOTO k)
: к
ECHO Готово.
ECHO BATCH OUT !!
ВХІД
: l
GOTO g

ECHO Привіт, Привіт, Привіт, привіт, привіт, Привіт, Привіт !, Привіт, Елло !, Lello.

Приклади виходів:

@ECHO OFF
Приріст SET = 10
: петля
АКО% приріст% EQU 0 GOTO кінець
% Приросту ECHO%
SET / A приріст%% - = 1
GOTO петля
: кінець
ВХІД
(0 байтів збережено)

@ECHO OFF
SET% i% = введіть тут:
SET / p INPUT = Введіть% i%
SET R =% 1
ECHO Останній показник% i %% R: ~ -1%
(3 байти отримано)

@ECHO OFF
Приріст SET = 10
SET g = GOTO 
SET e = ECHO 
: е
% g% f
% e% f
: f
% г% г
% e% g
: g
% г% год
% e% h
: год
% g% i
% e% i
: i
% g% j
% e% j
: j
ЯКЩО 3 == 4 (% e% 4) ELSE (% e% 5)
ЯКЩО 5 == 3 (% g% l) ELSE (% g% k)
: к
% e% Готово.
% e% СПІЛЬНО !!
ВХІД
: l
% г% г
(10 символів збережено)

SET% h% = елло,
ECHO H% h% H% h% H% h% h% h% h% h% H% h% Привіт !, h% h% ello !, Lello.
(1 символ збережено)


2
Скорочення партії для розваги та прибутку!
Алекс Карлсен

Вам потрібні ще деякі технічні характеристики. Звичайно AAA %increment%→ → set a=increment¶AAA %%a%%недійсний, і AAA %1 BBB %2set a= BBB ¶AAA %1%a%%2дійсний. (iirc) Тому вам потрібно це формалізувати. ( являє собою новий рядок)
користувач202729

Чи потрібно обробляти код, у якого увімкнено розширення розширення, уникнення відсоткових знаків або багаторядкові для операторів / if? Згідно з останніми тесту (який виробляє додатковий вихід , як луна не включено , й там не @доSET ), чи є додатковою продукцією, прийнятною з програми для гольфу?
Οurous

1
Tcl все знову
Ven

1
попри навіть через ?
Адам

Відповіді:


4

Java 8, програма Java 10 , 3884 799/795 програма + 484 вихід = 4368 1283/1279 всього

У цього коду є два обмеження:

  • Він передбачає, що змінні від A до Z вільні. (великі літери)
  • Він передбачає, що існує не більше 27 підстановок.
  • О, а оскільки Сканер не дуже скорочує це, порожній вхід викидає стек-трек.

Але ей - є профі!

  • Виводить найкращий код. Завжди.

Код вдається виконати краще, ніж приклади, надані автором виклику.

Цю версію для гольфу створив Кевін .

Java 8

c->{List<String>S=new Stack();HashMap<String,Integer>h=new HashMap(),s=new HashMap();int v=65,l=c.length(),b,e;do{for(b=0,l=c.length(),s.clear();b!=l;b++)for(e=b;++e<=l;)S.add(c.substring(b,e));S.removeIf(t->t.length()<5|t.matches(".*[\n|<%>].*"));S.forEach(t->h.merge(t,1,Integer::sum));S.clear();h.entrySet().removeIf(t->t.getValue()==1);String Y=c;int L=l;char V=(char)v;h.forEach((k,x)->{String i=Y,t;for(int j,I,q;i.contains(k);i=t+"%"+V+"%"+i.substring(j+k.length(),i.length())){for(I=-1,t=i.substring(q=0,j=i.indexOf(k));(I=t.indexOf("%",++I))>=0;q++);if(q%2>0)return;}i="SET "+V+"="+k+"\n"+i;if(i.length()<L)s.put(i,L-i.length());});h.clear();v++;c=s.isEmpty()?c:s.entrySet().stream().max((x,y)->x.getValue()>y.getValue()?1:-1).get().getKey();}while(l>c.length());return c;}

Спробуйте в Інтернеті!

Java 10

c->{var S=new Stack<String>();HashMap<String,Integer>h=new HashMap(),s=new HashMap();int v=65,l=c.length(),b,e;do{for(b=0,l=c.length(),s.clear();b!=l;b++)for(e=b;++e<=l;)S.add(c.substring(b,e));S.removeIf(t->t.length()<5|t.matches(".*[\n|<%>].*"));S.forEach(t->h.merge(t,1,(x,y)->x+y));S.clear();h.entrySet().removeIf(t->t.getValue()==1);var Y=c;int L=l;var V=(char)v;h.forEach((k,x)->{String i=Y,t;for(int j,I,q;i.contains(k);i=t+"%"+V+"%"+i.substring(j+k.length(),i.length())){for(I=-1,t=i.substring(q=0,j=i.indexOf(k));(I=t.indexOf("%",++I))>=0;q++);if(q%2>0)return;}i="SET "+V+"="+k+"\n"+i;if(i.length()<L)s.put(i,L-i.length());});h.clear();v++;c=s.isEmpty()?c:s.entrySet().stream().max((x,y)->x.getValue()>y.getValue()?1:-1).get().getKey();}while(l>c.length());return c;}

Спробуйте в Інтернеті! .

Оригінальна версія

Це зовсім не гольф, я просто хотів повеселитися, а не мучитися. Якщо ви, шановний читачу, хочете пограти у цю відповідь, будь ласка, зробіть це.

import java.util.ArrayList;
import java.util.HashMap;
import java.util.List;
import java.util.Map;
import java.util.Scanner;
import java.util.function.BiConsumer;
import java.util.function.Consumer;
import java.util.function.Predicate;

public class Main {
	List<String> substrings = new ArrayList<String>();
	HashMap<String, Integer> hm = new HashMap<String, Integer>();
	HashMap<String, Integer> scores = new HashMap<String, Integer>();
	
	private int v1 = 65;
	
	public static String rfos(String inputString, String stringToReplace,
	        String stringToReplaceWith) {

	    int length = stringToReplace.length();
	    int inputLength = inputString.length();

	    int startingIndexofTheStringToReplace = inputString.indexOf(stringToReplace);

	    if(count(inputString.substring(0, startingIndexofTheStringToReplace), "%") % 2 == 1)
	    	return null;
	    
	    String finalString = inputString.substring(0, startingIndexofTheStringToReplace) + stringToReplaceWith
	            + inputString.substring(startingIndexofTheStringToReplace + length, inputLength);

	    return finalString;

	}
	
	public static int count(String text, String find) {
        int index = 0, count = 0, length = find.length();
        while( (index = text.indexOf(find, index)) != -1 ) {                
                index += length; count++;
        }
        return count;
	}
	
	private String process(String program) {
		int begin = 0, end, il = program.length();
		
		scores.clear();
		
		while(begin != program.length()) {
			for(end = begin + 1; end < program.length() + 1; end++)
				substrings.add(program.substring(begin, end));
			begin++;
		}
		
		substrings.removeIf(new Predicate<String>() {
			@Override
			public boolean test(String arg0) {
				return arg0.length() <= 4 || arg0.contains("\n")
						|| arg0.contains("|")
						|| arg0.contains("<")
						|| arg0.contains("%")
						|| arg0.contains(">");
			}
		});
		
		substrings.forEach(new Consumer<String>() {

			@Override
			public void accept(String t) {
				if(hm.containsKey(t)) {
					hm.replace(t, hm.get(t) + 1);
				} else {
					hm.put(t, 1);
				}
			}
			
		});
		
		substrings.clear();
		
		hm.entrySet().removeIf(new Predicate<Map.Entry<String, Integer>>() {

			@Override
			public boolean test(Map.Entry<String, Integer> t) {
				return t.getValue() == 1;
			}
			
		});
		
		hm.forEach(new BiConsumer<String, Integer>() {
			
			@Override
			public void accept(String arg0, Integer arg1) {
				String iteration = program;
				boolean between = false;
				while(iteration.contains(arg0)) {
					iteration = rfos(iteration, arg0, "%" + Character.toString((char) v1) + "%");
					if(iteration == null)
						return;
				}
				iteration = "SET " + Character.toString((char) v1) + "=" + arg0 + "\n" + iteration;
				if(iteration.length() < program.length())
					scores.put(iteration, program.length() - iteration.length());
			}
			
		});
		
		hm.clear();
		v1++;
		
		if(scores.isEmpty())
			return program;
		else
			return scores.entrySet().stream().max((entry1, entry2) -> entry1.getValue() > entry2.getValue() ? 1 : -1).get().getKey();
	}

	public static void main(String[] args) {
		Main processor = new Main();
		int genid = 0, before = 0, after = 0;
		String currentCode = new Scanner(System.in).useDelimiter("\\Z").next();
		
		System.out.println("Calculating first generation...");
		
		do {
			String cc = processor.process(currentCode);
			before = currentCode.length();
			after = cc.length();
			
			currentCode = cc;
			
			if(before > after) {
				System.out.println("Generation " + genid++);
				System.out.println(before + " -> " + after);
				System.out.println("***\n" + cc + "\n***");
			} else {
				System.out.println("Generation FAIL " + genid++);
				System.out.println(before + " -> " + after);
				System.out.println("***\n" + cc + "\n***");
			}
		} while(before > after);
		
		
	}

}

Приклад виводу:

SET B=GOTO 
SET A=ECHO 
@%A%OFF
SET increment=10
:e
%B%f
%A%f
:f
%B%g
%A%g
:g
%B%h
%A%h
:h
%B%i
%A%i
:i
%B%j
%A%j
:j
IF 3==4 ( %A%4 ) ELSE ( %A%5 )
IF 5==3 ( %B%l ) ELSE ( %B%k )
:k
%A%Done.
%A%BATCH OUT!!
EXIT
:l
%B%g

Спробуйте в Інтернеті!


Я думаю, що все це "java.util." повторюється. Ви можете хотіти спростити свій код до import java.util.*.

Я думав, імпорт jdk не враховується?
Марк Єронімус

@A_ ви можете змінювати мою відповідь за своїм бажанням (якщо вона не є дійсною і зберігає дух)
Krzysztof Szewczyk

1
" Якщо ви, шановний читачу, хочете пограти у цю відповідь, будь ласка, зробіть це ". 799 байт у Java 8 або 795 байт у Java 10+ . Ласкаво просимо. :) Однозначно можна пограти ще трохи, але це буде робити зараз.
Кевін Кройсейсен

2
@KevinCruijssen Дякую за внесок. Я додав вашу версію до публікації. Не соромтесь редагувати це, не питаючи мене, чи знайдете ви щось краще.
Кшиштоф Щевчик
Використовуючи наш веб-сайт, ви визнаєте, що прочитали та зрозуміли наші Політику щодо файлів cookie та Політику конфіденційності.
Licensed under cc by-sa 3.0 with attribution required.