How to Draw Melting Icicles
V, 15 bytes
Àévò^lYp2x>òÀñd
Try it online!
Fairly straightforward.
À " Arg1 times:
év " Insert a 'v'
ò ò " Recursively:
^l " Break if there is only one character on this line
Y " Yank this line
p " Paste it below us
2x " Delete two characters
> " Indent this line
À " Arg2 times:
ñd " Delete a line
05AB1E, 12 bytes
Code:
ÅÉ'v×R²F¨}.c
Explanation:
ÅÉ # List of uneven numbers: [1, 3, 5, ..., input]
'v× # String multiply by 'v', giving ['v', 'vvv', 'vvvvv', ...]
R # Reverse the array
²F } # Second input times, do...
¨ # Remove the first element of the array
.c # Centralize the array
Uses the CP-1252 encoding. Try it online!
05AB1E, 11 bytes
;-Ý·¹+'v×.c
;- Compute x = Input[1]-Input[0]/2 (e.g. 7,2 -> -1.5)
Ý Push [0, ..., x] (e.g. 7,2 -> [0, -1])
· Multiply each value by 2 (e.g. 7,2 -> [0, -2])
¹+ Add Input[0] to each value (e.g. 7,2 -> [7, 5])
'v× String multiply by 'v'
.c Center all strings and implicitly display them
Try it online!