A Basic Multiplication table

[harilalmn]

Hi All,

I am just a newborn in the world of Autolisp. So please forgive if my coding is too immature...

 

I am trying to create a basic program for generating a multiplication table. But something is wrong.. Could you please help me?

 

(defun c:mtlb()
 (setq n (getint "\nEnter number:"))
 (foreach a (list 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16)
   (progn
   (setq string (strcat((itoa n) " x " (itoa a) "=" (* n a))))
   (princ string)
   )
 )
)

[Guest kruuger]

try now:

(defun c:MTLB (/ n a string)
 (setq n (getint "\nEnter number: "))
 (foreach a (list 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16)
   (setq string
     (strcat
       "\n" (itoa n) " x " (itoa a) " = " (itoa (* n a))
      )
   ) 
   (princ string)
 )
 (princ)
)

kruuger

[harilalmn]

Wow...!!

That worked great...! Thanks a lot..

So, I hope, the problems were;

1. Did not declare the symbols

2. Used a Progn unnecessarily

Right?

[Guest kruuger]

program can work with progn and undeclared variable (bad practice).

main problem was here:

(setq string
 (strcat
   [b][color=red]( ;;[/color][/b] unnecessary 
     (itoa n) " x " (itoa a) "=" [b][color=red]([/color][color=red]itoa[/color][/b] (* n a)[b][color=red])[/color][/b] ;;missing
   [b][color=red])[/color][/b][b][color=red];;[/color][/b] unnecessary
 )
)

kruuger

[harilalmn]

Thankyou Kruuger... I understood my mistake now... Thankyou for explaining it.

[pBe]

a variation

 

 
(defun c:MTLB (/ n a string)
 (setq n (getint "\nEnter number: ")
       cycle (getint "\nEnter Cycle: ")  a 1)
  (repeat cycle
(setq string  
(strcat
        "\n" (itoa n) " x " (itoa a) " = " (itoa (* n a))
      ) a (1+ a))
 (princ string)
  )
 (princ)
)  

[Lee Mac]

I thought you were looking for a table

 

[b][color=RED]([/color][/b][b][color=BLUE]defun[/color][/b] [color=black]c:MTLB[/color] [b][color=RED]([/color][/b] [b][color=BLUE]/[/color][/b] _padleft l [b][color=RED])[/color][/b]

 [b][color=RED]([/color][/b][b][color=BLUE]defun[/color][/b] _padleft [b][color=RED]([/color][/b] s c l [b][color=RED])[/color][/b]
   [b][color=RED]([/color][/b][b][color=BLUE]if[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]<=[/color][/b] l [b][color=RED]([/color][/b][b][color=BLUE]strlen[/color][/b] s[b][color=RED]))[/color][/b] s
     [b][color=RED]([/color][/b]_padleft [b][color=RED]([/color][/b][b][color=BLUE]strcat[/color][/b] c s[b][color=RED])[/color][/b] c l[b][color=RED])[/color][/b]
   [b][color=RED])[/color][/b]
 [b][color=RED])[/color][/b]

 [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] l [b][color=DARKRED]'[/color][/b][b][color=RED]([/color][/b][b][color=#009900]1[/color][/b] [b][color=#009900]2[/color][/b] [b][color=#009900]3[/color][/b] [b][color=#009900]4[/color][/b] [b][color=#009900]5[/color][/b] [b][color=#009900]6[/color][/b] [b][color=#009900]7[/color][/b] [b][color=#009900]8[/color][/b] [b][color=#009900]9[/color][/b] [b][color=#009900]10[/color][/b][b][color=RED]))[/color][/b]
 [b][color=RED]([/color][/b]
   [b][color=RED]([/color][/b][b][color=BLUE]lambda[/color][/b] [b][color=RED]([/color][/b] s [b][color=RED])[/color][/b]
     [b][color=RED]([/color][/b][b][color=BLUE]mapcar[/color][/b]
       [b][color=RED]([/color][/b][b][color=BLUE]function[/color][/b]
         [b][color=RED]([/color][/b][b][color=BLUE]lambda[/color][/b] [b][color=RED]([/color][/b] a [b][color=RED])[/color][/b]
           [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] s [b][color=RED]([/color][/b][b][color=BLUE]strcat[/color][/b] s [b][color=RED]([/color][/b]_padleft [b][color=RED]([/color][/b][b][color=BLUE]itoa[/color][/b] a[b][color=RED])[/color][/b] [b][color=#a52a2a]" "[/color][/b] [b][color=#009900]4[/color][/b][b][color=RED])))[/color][/b]
         [b][color=RED])[/color][/b]
       [b][color=RED])[/color][/b]
       l
     [b][color=RED])[/color][/b]
     [b][color=RED]([/color][/b][b][color=BLUE]princ[/color][/b] s[b][color=RED])[/color][/b]
     [b][color=RED]([/color][/b][b][color=BLUE]princ[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]strcat[/color][/b] [b][color=#a52a2a]"\n"[/color][/b] [b][color=RED]([/color][/b]_padleft [b][color=#a52a2a]"-"[/color][/b] [b][color=#a52a2a]"-"[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]1-[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]strlen[/color][/b] s[b][color=RED])))))[/color][/b]
   [b][color=RED])[/color][/b]
   [b][color=#a52a2a]"\n    |"[/color][/b]
 [b][color=RED])[/color][/b]
 [b][color=RED]([/color][/b][b][color=BLUE]mapcar[/color][/b]
   [b][color=RED]([/color][/b][b][color=BLUE]function[/color][/b]
     [b][color=RED]([/color][/b][b][color=BLUE]lambda[/color][/b] [b][color=RED]([/color][/b] a [b][color=RED])[/color][/b]
       [b][color=RED]([/color][/b]
         [b][color=RED]([/color][/b][b][color=BLUE]lambda[/color][/b] [b][color=RED]([/color][/b] s [b][color=RED])[/color][/b]
           [b][color=RED]([/color][/b][b][color=BLUE]mapcar[/color][/b]
             [b][color=RED]([/color][/b][b][color=BLUE]function[/color][/b]
               [b][color=RED]([/color][/b][b][color=BLUE]lambda[/color][/b] [b][color=RED]([/color][/b] b [b][color=RED])[/color][/b]
                 [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] s [b][color=RED]([/color][/b][b][color=BLUE]strcat[/color][/b] s [b][color=RED]([/color][/b]_padleft [b][color=RED]([/color][/b][b][color=BLUE]itoa[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]*[/color][/b] a b[b][color=RED]))[/color][/b] [b][color=#a52a2a]" "[/color][/b] [b][color=#009900]4[/color][/b][b][color=RED])))[/color][/b]
               [b][color=RED])[/color][/b]
             [b][color=RED])[/color][/b]
             l
           [b][color=RED])[/color][/b]
           [b][color=RED]([/color][/b][b][color=BLUE]princ[/color][/b] s[b][color=RED])[/color][/b]
         [b][color=RED])[/color][/b]
         [b][color=RED]([/color][/b][b][color=BLUE]strcat[/color][/b] [b][color=#a52a2a]"\n"[/color][/b] [b][color=RED]([/color][/b]_padleft [b][color=RED]([/color][/b][b][color=BLUE]itoa[/color][/b] a[b][color=RED])[/color][/b] [b][color=#a52a2a]" "[/color][/b] [b][color=#009900]3[/color][/b][b][color=RED])[/color][/b] [b][color=#a52a2a]" |"[/color][/b][b][color=RED])[/color][/b]
       [b][color=RED])[/color][/b]
     [b][color=RED])[/color][/b]
   [b][color=RED])[/color][/b]
   l
 [b][color=RED])[/color][/b]

 [b][color=RED]([/color][/b][b][color=BLUE]princ[/color][/b][b][color=RED])[/color][/b]
[b][color=RED])[/color][/b]