Coding katas: MV Coders on Fire II

#include <stdio.h>
#include <string.h>

int main(int argv, char* argc[]) {
	int len=0, base=0, altura=0, i, cBase=0, cAltura=0;
	char* cadena = argc[1];
	len = strlen(cadena);
	if (len%2!=0) return -1;
	if (len%4 == 0) { base=len/4; altura=base; }
	else { base=(len/4)+1; altura=base+1; }
	printf("\x1b[%d;1HAltura: %d, Base: %d", base+4, base, altura);
	for (i=0; i<len; i++) {
		printf("\x1b[%d;%dH%c",3+cAltura,1+cBase,cadena[i]);
		if (i<len/2) {
			if (cBase < base) { cBase++; }
			else if (cAltura < altura) { cAltura++; }
		} else {
			if (cBase > 0) { cBase--; }
			else if (cAltura > 0) { cAltura--; }
		}
	}
	printf("\x1b[%d;1H\n", base+5);

return 0;
}

all: hello

hello:
	gcc -ansi -Wall katauno.c -o katauno

test:
	clear
	./katauno HelloWorld

testdos:
	clear
	./katauno HelloWorldHelloWorld

clean:
	rm -rf *o hello

/*
 * Pirado IV
 * ---------
 * Código para la Kata 1 de
 * MV Coders on Fire
 * http://www.mediavida.com/foro/9/coding-katas-mv-coders-on-fire-ii-470850
 *
 * 31 de Enero de 2013
 *
 */

/*-----------------------------
 * Everybody loves variables!
 *-----------------------------*/
var inputStr = '',
    largeLength = 0,
    sidesLength = 0,
    spacesLength = 0,
    top, right, bottom, left,
    spaces = '',
    sides;

/*---------------------------------------
 * Preparamos la cadena para procesarla
 *---------------------------------------*/
process.argv.forEach(function (val, index, array) {
    //inputStr += index > 2 ? ' ' : '';
    inputStr += (index > 1) ? val : '';
});

if(inputStr.length % 2 !== 0) {
    inputStr += '-';
}

largeLength = Math.floor(inputStr.length / 2.5);
sidesLength = Math.floor( (inputStr.length - (largeLength * 2) ) / 2);
spacesLength = largeLength - 2;

// Fix para cadenas muy pequeñas
if(inputStr.length <= 4) {
    largeLength = inputStr.length / 2;
    sidesLength = 0;
    spacesLength = 0;
}

/*--------------------------------
 * Vamos a dibujar el cuadradico
 *--------------------------------*/

top = inputStr.substr(0, largeLength);
right = inputStr.substr(largeLength, sidesLength);
bottom = inputStr.substr(largeLength + sidesLength, largeLength).split("").reverse().join("");
left = inputStr.substr(largeLength * 2 + sidesLength, sidesLength).split("").reverse().join("");
for(i = 0; i < spacesLength; i++) { spaces += " "; }

console.log(top);
for(i = 0; i < sidesLength; i++) {
    var currentSide = left.charAt(i) + spaces + right.charAt(i);
    console.log(currentSide);
}
console.log(bottom);

Dependiendo del problema, a veces es mejor visualizar el caso más trivial y el más extremo o bien analizar una sucesión de casos y encontrar el patrón. Nos ponemos a ello:

Bien, intuimos una sucesión clara que relaciona el nº de caracteres de la cadena con la base y la altura. Aun así desconcierta cierta asimetría de un primer vistazo. Lo mejor es pasar de la imagen a los números:

Vemos claramente que si la longitud de la cadena es divisible por 4, la base y la altura son simétricas y su longitud es el cociente de la longitud de la cadena + 1.

Si no es divisible por 4, la base (podría ser la altura, es arbitrario) es la parte entera del cociente de la división anterior + 1 y la altura lo la parte entera + 2.

Option Explicit

Private Sub btnPintar_Click()

KataSquare (txtCadena.Text)

End Sub

Public Sub KataSquare(textoInput As String)

Dim longitudCadena As Long
Dim esDivisible As Boolean
Dim parteEnteraDivision As Long
Dim base As Long
Dim altura As Long
Dim contadorReloj As Long
Dim indice As Long
Dim indice2 As Long
Dim filaSquare As String
Dim textoSquare As String

longitudCadena = Len(textoInput)
lblTotal.Caption = longitudCadena
 

If (longitudCadena < 8) Then
    MsgBox "La cadena de texto debe tener mínimo 8 caracteres", vbOKOnly, "Kata Square"
    Exit Sub
End If

If (longitudCadena Mod 2) <> 0 Then
    MsgBox "La cadena de texto no es divisible por 2", vbOKOnly, "Kata Square"
    Exit Sub
End If

esDivisible = (longitudCadena Mod 4) = 0
parteEnteraDivision = Val(longitudCadena / 4)

If esDivisible Then
    base = parteEnteraDivision + 1
    altura = parteEnteraDivision + 1
Else
    base = parteEnteraDivision + 2
    altura = parteEnteraDivision + 1
End If

lblBase.Caption = base
lblAltura.Caption = altura

Dim matrizSquare() As String
ReDim Preserve matrizSquare(1 To altura, 1 To base)

For indice = LBound(matrizSquare, 1) To UBound(matrizSquare, 1)

    For indice2 = LBound(matrizSquare, 2) To UBound(matrizSquare, 2)
        matrizSquare(indice, indice2) = "  "
    Next indice2
   
Next indice


contadorReloj = 1

For indice = LBound(matrizSquare, 2) To UBound(matrizSquare, 2)
    matrizSquare(1, indice) = Mid(textoInput, contadorReloj, 1)
    contadorReloj = contadorReloj + 1
Next indice

For indice = LBound(matrizSquare, 1) + 1 To UBound(matrizSquare, 1)
    matrizSquare(indice, UBound(matrizSquare, 2)) = Mid(textoInput, contadorReloj, 1)
    contadorReloj = contadorReloj + 1
Next indice

For indice = UBound(matrizSquare, 2) - 1 To LBound(matrizSquare, 2) Step -1
    matrizSquare(UBound(matrizSquare, 1), indice) = Mid(textoInput, contadorReloj, 1)
    contadorReloj = contadorReloj + 1
Next indice

For indice = UBound(matrizSquare, 1) - 1 To LBound(matrizSquare, 1) + 1 Step -1
    matrizSquare(indice, LBound(matrizSquare, 2)) = Mid(textoInput, contadorReloj, 1)
    contadorReloj = contadorReloj + 1
Next indice


For indice = LBound(matrizSquare, 1) To UBound(matrizSquare, 1)

    filaSquare = ""
    For indice2 = LBound(matrizSquare, 2) To UBound(matrizSquare, 2)
        filaSquare = filaSquare & matrizSquare(indice, indice2)
    Next indice2
    
    textoSquare = textoSquare & filaSquare & vbCrLf
    
Next indice

txtSquare.Text = textoSquare

End Sub

Private Sub txtCadena_Change()

Dim longitudCadena As Long

longitudCadena = Len(txtCadena.Text)
lblTotal.Caption = longitudCadena
lblBase.Caption = ""
lblAltura.Caption = ""

If longitudCadena >= 8 And (longitudCadena Mod 2) = 0 Then
    lblTotal.ForeColor = RGB(0, 0, 0)
Else
    lblTotal.ForeColor = RGB(255, 0, 0)
End If




End Sub

Private Sub txtCadena_KeyPress(KeyAscii As Integer)

KeyAscii = Asc(StrConv(Chr$(KeyAscii), vbUpperCase))

End Sub